OFFSET
1,2
COMMENTS
LINKS
Prime Curios, 139968.
EXAMPLE
34992 is in the sequence because 34992=(3*4*9*9*2)*phi(3+4+9+9+2).
MATHEMATICA
Do[If[h = IntegerDigits[n]; l = Length[h]; n == Product[h[[k]], {k, l}]*EulerPhi[Sum[h[[k]], {k, l}]], Print[n]], {n, 50000000}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Aug 12 2006
STATUS
approved