OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[80], SquareFreeQ[GCD[2#+1, BernoulliB[4#+2]]]&] (* Harvey P. Dale, Jul 23 2013 *)
PROG
(PARI) for(n=1, 3000, if(issquarefree(gcd(2*n+1, numerator(bernfrac(4*n+2)))), print1(n", "))) \\ Herman Jamke (hermanjamke(AT)fastmail.fm), Nov 02 2006
CROSSREFS
KEYWORD
nonn
AUTHOR
Ralf Stephan, Sep 01 2004
STATUS
approved