A024414 - OEIS

%I #9 Jul 09 2019 10:47:24

%S 0,3,5,9,11,16,17,18,21,23,24,27,28,32,33,34,37,39,40,42,44,46,49,50,

%T 53,54,55,58,59,60,63,65,67,70,71,74,75,80,81,84,86,89,90,94,95,96,99,

%U 100,104,105,109,110,113,114,117,118,121,122,123,126,127,130,131,134,135,136,138,140

%N Positions of even numbers in A024412.

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

%K nonn

%O 1,2

%A _Clark Kimberling_

%E Missing a(1)=0 inserted and later terms corrected by _Sean A. Irvine_, Jul 08 2019