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