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
KEYWORD
nonn
AUTHOR
EXTENSIONS
Missing a(1)=0 inserted and later terms corrected by Sean A. Irvine, Jul 08 2019
STATUS
approved