A024414 Positions of even numbers in A024412.
0, 3, 5, 9, 11, 16, 17, 18, 21, 23, 24, 27, 28, 32, 33, 34, 37, 39, 40, 42, 44, 46, 49, 50, 53, 54, 55, 58, 59, 60, 63, 65, 67, 70, 71, 74, 75, 80, 81, 84, 86, 89, 90, 94, 95, 96, 99, 100, 104, 105, 109, 110, 113, 114, 117, 118, 121, 122, 123, 126, 127, 130, 131, 134, 135, 136, 138, 140
Offset: 1
Keywords
Programs
-
Mathematica
s2 = Union[Flatten[Table[Table[StirlingS2[n, k], {k, 1, 200}], {n, 1, 200}]]]; Select[Range[200], EvenQ[s2[[#]]] &] - 1 (* Vaclav Kotesovec, Jul 09 2019 *)
Extensions
Missing a(1)=0 inserted and later terms corrected by Sean A. Irvine, Jul 08 2019