login
A098242
Numbers k such that gcd(2k+1, numerator(Bernoulli(4k+2))) is not squarefree.
2
12, 24, 37, 60, 62, 84, 87, 112, 122, 137, 144, 162, 171, 180, 181, 187, 212, 237, 253, 262, 264, 269, 287, 312, 318, 337, 362, 387, 412, 416, 420, 422, 423, 433, 437, 462, 465, 480, 487, 512, 537, 541, 544, 562, 563, 587, 591, 612, 637, 662, 665, 684, 687
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[700], !SquareFreeQ[GCD[2*# + 1, BernoulliB[4*# + 2]]] &] (* Amiram Eldar, Aug 31 2024 *)
PROG
(PARI) for(n=1, 3000, if(!issquarefree(gcd(2*n+1, numerator(bernfrac(4*n+2)))), print1(n", ")))
CROSSREFS
Complement of A098240.
Sequence in context: A091193 A335541 A174018 * A139406 A140831 A126855
KEYWORD
nonn
AUTHOR
Ralf Stephan, Sep 01 2004
STATUS
approved