login
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, 26422, 344070, 666666, 2117108, 5184824, 22047849, 27469743, 55368399, 59546748, 87986556
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: A031652 A236787 A237003 * A292701 A275417 A206539
KEYWORD
base,fini,full,nonn
AUTHOR
Farideh Firoozbakht, May 12 2005
STATUS
approved