1,2
Select[ Range[ 10^7 ], Union[ EvenQ[ IntegerDigits[ #^3 ] ] ] == {False} & ]
Cf. A030100, A034376, A052004.
Sequence in context: A094766 A009407 A009433 this_sequence A085597 A097512 A032490
Adjacent sequences: A030096 A030097 A030098 this_sequence A030100 A030101 A030102
nonn,base,easy,nice
Patrick De Geest (pdg(AT)worldofnumbers.com)
Search completed in 0.002 seconds