|
Search: id:A104898
|
|
|
| A104898 |
|
Numbers n such that phi(n)=phi(d_1)^phi(d_1)*phi(d_2)^phi(d_2)* ...*phi(d_k)^phi(d_k) where d_1 d_2 ... d_k is the decimal expansion of n. |
|
+0
2
|
|
| 1, 2, 34, 512, 34816, 421192, 1213173, 1311471, 2291616, 2622942, 7624162, 12333173, 13421568, 15221171, 27132646, 41134392, 49131264, 76142643, 121676464, 124127822, 143327424, 143942616, 149424426, 166467132, 194626614
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
COMMENT
|
Next term is greater than 3*10^8.
|
|
EXAMPLE
|
227826131 is in the sequence because phi(227826131) = phi(2)^phi(2) * phi(2)^phi(2) * phi(7)^phi(7) * phi(8)^phi(8) * phi(2)^phi(2) * phi(6)^phi(6) * phi(1)^phi(1) * phi(3)^phi(3)) * phi(1)^phi(1).
|
|
MATHEMATICA
|
Do[h=IntegerDigits[m]; l=Length[h]; If[Min[h]>0&&EulerPhi[m]==Product[ EulerPhi[h[[k]]]^EulerPhi[h[[k]]], {k, l}], Print[m]], {m, 300000000}]
|
|
CROSSREFS
|
Cf. A103113, A058627.
Sequence in context: A098531 A092408 A005261 this_sequence A071799 A098704 A119298
Adjacent sequences: A104895 A104896 A104897 this_sequence A104899 A104900 A104901
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Farideh Firoozbakht (mymontain(AT)yahoo.com), Mar 29 2005
|
|
|
Search completed in 0.002 seconds
|
