A005127 Number of k for which n does not divide Stirling cycle numbers [ {n \atop k} ].

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

Offset

0,3

Comments

a(n) = sum(A057427(A145201(k)), 1<=k<=n) for n>0. [Reinhard Zumkeller, Jul 04 2009]

Links

Vincenzo Librandi, Table of n, a(n) for n = 0..10000

Mathematica

Prepend[Array[Length[Select[Table[StirlingS1[#, k]/#, {k, 0, #}], ! IntegerQ[#] &]] &, 100], 1]

Crossrefs

Sequence in context: A220977 A054134 A319822 * A140773 A133911 A069932

Adjacent sequences: A005124 A005125 A005126 * A005128 A005129 A005130

Keyword

nonn

Author

Olivier Gérard

Extensions

Mathematica code fixed by Vincenzo Librandi, Oct 27 2012

Status

approved