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
KEYWORD
base,fini,full,nonn
AUTHOR
Farideh Firoozbakht, May 12 2005
STATUS
approved