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,1

Links

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

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 *)

Crossrefs

Sequence in context: A143090 A328074 A068394 * A126763 A058080 A119911

Adjacent sequences: A189682 A189683 A189684 * A189686 A189687 A189688

Keyword

nonn

Author

Jonathan Sondow, Apr 25 2011

Status

approved