0,3

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

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

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

Sequence in context: A045865 A220977 A054134 * A140773 A133911 A069932

Adjacent sequences: A005124 A005125 A005126 * A005128 A005129 A005130

nonn

Olivier Gérard

Mathematica code fixed by Vincenzo Librandi, Oct 27 2012

approved