login
A024414
Positions of even numbers in A024412.
0
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
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
KEYWORD
nonn
EXTENSIONS
Missing a(1)=0 inserted and later terms corrected by Sean A. Irvine, Jul 08 2019
STATUS
approved