A022439 - OEIS

%I #6 Mar 30 2017 05:29:26

%S 2,4,5,7,11,15,18,21,23,26,29,31,35,37,41,44,47,51,53,57,60,63,66,69,

%T 72,75,78,81,83,87,89,93,95,98,101,104,107,110,113,115,119,121,125,

%U 127,131,133

%N a(n) = c(n-1) + c(n-3) where c is the sequence of numbers not in a.

%H Ivan Neretin, <a href="/A022439/b022439.txt">Table of n, a(n) for n = 0..10000</a>

%t Fold[Append[#1, Plus @@ Complement[Range[Max@#1 + 3], #1][[{#2, #2 + 2}]]] &, {2, 4, 5}, Range[43]] (* _Ivan Neretin_, Mar 30 2017 *)

%Y Cf. A022424 and references therein.

%K nonn

%O 0,1

%A _Clark Kimberling_