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,2

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.

Mathematica

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

Crossrefs

Cf. A022424 and references therein.

Cf. A299536.

Sequence in context: A302388 A006092 A015859 * A061868 A004679 A168060

Adjacent sequences: A022424 A022425 A022426 * A022428 A022429 A022430

Keyword

nonn,changed

Author

Clark Kimberling

Status

approved