OFFSET
1,1
COMMENTS
All members so far are themselves not squarefree. - Robert G. Wilson v, Aug 28 2004
MATHEMATICA
Select[ Range[1000], !SquareFreeQ[ GCD[ #, Numerator[ BernoulliB[2# ]] ]] &] (* Robert G. Wilson v, Aug 28 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Feb 06 2002
EXTENSIONS
More terms from Robert G. Wilson v, Aug 28 2004
'Needs["NumberTheory`"]' (no longer needed) removed from Mathematica code by Jean-François Alcover, Dec 04 2013
STATUS
editing