|
%I #8 Aug 03 2014 14:01:30
%S 12,16,18,20,20,22,22,24,24,26,28,28,30,30,32,32,32,34,36,38,40,40,42,
%T 44,44,44,44,46,46,48,48,48,50,50,52,52,52,52,54,54,54,56,56,56,58,58,
%U 58,58,60,60,60,62,62,62,62,64,64,66,66,68,68,68,68,70,70,70
%N Numbers 2k in A189683.
%t 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 *)
%K nonn
%O 1,1
%A _Jonathan Sondow_, Apr 25 2011
|
