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

1, 2, 3, 10, 12, 14, 16, 19, 22, 26, 30, 33, 37, 39, 43, 45, 48, 51, 53, 56, 59, 61, 65, 67, 70, 73, 76, 79, 82, 85, 88, 91, 95, 97, 101, 104, 107, 111, 113, 117, 120, 123, 126, 129, 132, 135, 139, 141, 145, 147, 151, 153, 157, 159, 163, 165, 169, 171

Offset: 0

Author

Clark Kimberling

Keywords

• nonn

Links

• Ivan Neretin, Table of n, a(n) for n = 0..10000
• J-P. Bode, H. Harborth, C. Kimberling, Complementary Fibonacci sequences, Fibonacci Quarterly 45 (2007), 254-264.

Crossrefs

Cf. A022424 and references therein.

Cf. A299536.

Programs

Mathematica

Fold[Append[#1, Plus @@ Complement[Range[Max@#1 + 3], #1][[{#2, #2 + 2}]]] &, {1, 2, 3}, Range[55]] (* Ivan Neretin, Mar 28 2017 *)