OFFSET
1,1
EXAMPLE
27923616 is in the sequence because phi(27923616)=2^7*9^2*3^6*1^6.
11600069 and 23635500 are not members, since 0^0 is undefined.
MATHEMATICA
Do[h = IntegerDigits[n]; k = Length[h]; If[EvenQ[k] && Select[ Range[k/2], h[[2#-1]] == 0 &] == {} && EulerPhi[n]==Product[ h[[2j-1]]^h[[2j]], {j, k/2}], Print[n]], {n, 30000000}]
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Farideh Firoozbakht, Aug 26 2005
EXTENSIONS
Edited by N. J. A. Sloane, Apr 02 2009
More terms from Max Alekseyev, Oct 16 2012
STATUS
approved