|
%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
|
