A098242 Numbers k such that gcd(2k+1, numerator(Bernoulli(4k+2))) is not squarefree.

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

Author

Ralf Stephan, Sep 01 2004

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..1000

Crossrefs

Complement of A098240.

Cf. A013929, A027641, A027642, A067778, A097704.

Programs

Mathematica

Select[Range[700], !SquareFreeQ[GCD[2*# + 1, BernoulliB[4*# + 2]]] &] (* Amiram Eldar, Aug 31 2024 *)

PARI

for(n=1,3000,if(!issquarefree(gcd(2*n+1,numerator(bernfrac(4*n+2)))),print1(n",")))