OFFSET
1,2
COMMENTS
All powers of 4 (A000302) are in the sequence.
MATHEMATICA
Select[Range[8300], Mod[EulerPhi[#]PrimeOmega[#], #]==0&] (* Harvey P. Dale, Oct 23 2024 *)
CROSSREFS
KEYWORD
nonn,changed
AUTHOR
Benoit Cloitre, Jan 30 2002
STATUS
approved