|
Search: id:A107119
|
|
|
| A107119 |
|
Numbers n such that phi(n)=(d_1+d_2+...+d_k)*(d_1!+d_2!+...+d_k!) where d_1 d_2...d_k is the decimal expansion of n. |
|
+0
1
|
|
| 1, 26422, 344070, 666666, 2117108, 5184824, 22047849, 27469743, 55368399, 59546748, 87986556
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
666666 is in the sequence because
phi(666666)=(6+6+6+6+6+6)*(6!+6!+6!+6!+6!+6!).
|
|
MATHEMATICA
|
Do[h = IntegerDigits[n]; l = Length[h]; If[EulerPhi[n] == Sum[h[[k]], {k, l}]*Sum[h[[k]]!, {k, l}], Print[n]], {n, 87986556}]
|
|
CROSSREFS
|
Cf. A058265.
Sequence in context: A115494 A034622 A004046 this_sequence A015303 A046710 A093180
Adjacent sequences: A107116 A107117 A107118 this_sequence A107120 A107121 A107122
|
|
KEYWORD
|
base,fini,full,nonn
|
|
AUTHOR
|
Farideh Firoozbakht (mymontain(AT)yahoo.com), May 12 2005
|
|
|
Search completed in 0.002 seconds
|
