OFFSET
1,1
COMMENTS
EXAMPLE
237532 is in the sequence since phi(237532)=23*7*5*3^2*2^4,
832332 is in the sequence since phi(832332)=83*23*3^2*2^4, and
82953292 is in the sequence since phi(82953292)=829*53*29*2^5.
MATHEMATICA
a251363[n_Integer] :=
Rest@ Select[Range[n], # == FromDigits[Flatten@ IntegerDigits[
Sort[First@ Transpose@ FactorInteger[EulerPhi[#]], Greater]]] &]; a251363[10^6] (* Michael De Vlieger, Dec 03 2014 *)
CROSSREFS
KEYWORD
nonn,base,more,changed
AUTHOR
Jahangeer Kholdi, Dec 03 2014
EXTENSIONS
a(4) from Max Alekseyev, Feb 10 2025
STATUS
approved