OFFSET
1,1
COMMENTS
EXAMPLE
30 is in the sequence because the odd primes that divide 30 are 3 and 5, but 2^2 does not divide 30.
MATHEMATICA
Select[2 Range[250], Mod[#, 2^(PrimeNu[#] - 1)] != 0 &]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Feb 25 2014
STATUS
approved