0,3

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

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

Cf. A048993.

Sequence in context: A057567 A217895 A328720 * A187782 A129296 A300837

Adjacent sequences: A005125 A005126 A005127 * A005129 A005130 A005131

nonn

Olivier Gérard

approved