This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A189685 #8 Aug 03 2014 14:01:30
%S A189685 12,16,18,20,20,22,22,24,24,26,28,28,30,30,32,32,32,34,36,38,40,40,42,
%T A189685 44,44,44,44,46,46,48,48,48,50,50,52,52,52,52,54,54,54,56,56,56,58,58,
%U A189685 58,58,60,60,60,62,62,62,62,64,64,66,66,68,68,68,68,70,70,70
%N A189685 Numbers 2k in A189683.
%t A189685 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 A189685 nonn
%O A189685 1,1
%A A189685 _Jonathan Sondow_, Apr 25 2011