OFFSET
1,2
COMMENTS
Or, the natural numbers that are not products of distinct primes. Also, number of prime divisors of n < number of nonprime divisors of n. - Juri-Stepan Gerasimov, Nov 10 2009
MATHEMATICA
t = {1}; Do[If[Max[Transpose[FactorInteger[n]][[2]]] > 1, AppendTo[t, n]], {n, 2, 160}]; t (* Jayanta Basu, Apr 30 2013 *)
PROG
(PARI) is(n)=!issquarefree(n)||n==1 \\ Charles R Greathouse IV, Apr 04 2014
CROSSREFS
KEYWORD
nonn,less
AUTHOR
Jaroslav Krizek, Jul 19 2009
STATUS
approved