A067778 Numbers n such that gcd(n, numerator(B(2n))) is not squarefree where B(2n) are the Bernoulli numbers.

25, 49, 75, 98, 121, 125, 169, 175, 196, 225, 242, 245, 275, 289, 325, 338, 343, 361, 363, 375, 392, 425, 475, 484, 490, 507, 525, 529, 539, 575, 578, 625, 637, 675, 676, 686, 722, 725, 726, 775, 784, 825, 833, 841, 845, 847, 867, 875, 925, 931, 961, 968

Offset

1,1

Comments

All members so far are themselves not squarefree. - Robert G. Wilson v, Aug 28 2004

Links

Table of n, a(n) for n=1..52.

Mathematica

Select[ Range[1000], !SquareFreeQ[ GCD[ #, Numerator[ BernoulliB[2# ]] ]] &] (* Robert G. Wilson v, Aug 28 2004 *)

Crossrefs

Cf. A097704.

Sequence in context: A020196 A020294 A103214 * A350061 A067893 A067794

Adjacent sequences: A067775 A067776 A067777 * A067779 A067780 A067781

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

approved