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 A005127 #17 Oct 28 2012 05:24:08
%S A005127 1,0,2,2,4,2,5,2,6,4,5,2,9,2,9,7,8,2,9,2,12,7,9,2,13,6,9,10,18,2,19,2,
%T A005127 12,8,5,10,16,2,9,10,18,2,20,2,22,17,17,2,19,8,15,19,23,2,27,9,25,7,
%U A005127 17,2,37,2,33,16,20,14,20,2,12,19,26,2,28,2,9,25,22,16,37,2,26,28,9,2
%N A005127 Number of k for which n does not divide Stirling cycle numbers [ {n \atop k} ].
%C A005127 a(n) = sum(A057427(A145201(k)), 1<=k<=n) for n>0. [_Reinhard Zumkeller_, Jul 04 2009]
%H A005127 Vincenzo Librandi, <a href="/A005127/b005127.txt">Table of n, a(n) for n = 0..10000</a>
%t A005127 Prepend[Array[Length[Select[Table[StirlingS1[#, k]/#, {k, 0, #}], ! IntegerQ[#] &]] &, 100], 1]
%K A005127 nonn
%O A005127 0,3
%A A005127 _Olivier Gérard_
%E A005127 Mathematica code fixed by _Vincenzo Librandi_, Oct 27 2012