OFFSET
0,2
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..100
MATHEMATICA
Select[Range[0, 30], !SquareFreeQ[#]&]! (* Harvey P. Dale, Aug 27 2016 *)
PROG
(PARI) for(n=0, 38, if(issquarefree(n), n+1, print(n!)))
(PARI) { n=-1; for (m=0, 10^9, if (m>0, f*=m, f=1); if (!issquarefree(m), write("b062322.txt", n++, " ", f); if (n==100, break)); ) } \\ Harry J. Smith, Aug 04 2009
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Jason Earls, Jul 05 2001
EXTENSIONS
Better name from Jon E. Schoenfield, Aug 09 2015
STATUS
approved