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

Links

Table of n, a(n) for n=1..68.

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 *)

Crossrefs

Sequence in context: A322957 A018486 A261194 * A072391 A310038 A372051

Adjacent sequences: A024411 A024412 A024413 * A024415 A024416 A024417

Keyword

nonn

Author

Clark Kimberling

Extensions

Missing a(1)=0 inserted and later terms corrected by Sean A. Irvine, Jul 08 2019

Status

approved