A189685 Numbers 2k in A189683.

12, 16, 18, 20, 20, 22, 22, 24, 24, 26, 28, 28, 30, 30, 32, 32, 32, 34, 36, 38, 40, 40, 42, 44, 44, 44, 44, 46, 46, 48, 48, 48, 50, 50, 52, 52, 52, 52, 54, 54, 54, 56, 56, 56, 58, 58, 58, 58, 60, 60, 60, 62, 62, 62, 62, 64, 64, 66, 66, 68, 68, 68, 68, 70, 70, 70

Offset: 1

Author

Jonathan Sondow, Apr 25 2011

Keywords

• nonn

Programs

Mathematica

Flatten[Table[p = Select[First /@ FactorInteger[Abs[Numerator[BernoulliB[n]]]], # >= n+3 &]; Table[n, {Length[p]}], {n, 2, 70, 2}]] (* T. D. Noe, Apr 25 2011 *)