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

1, 3, 4, 8, 12, 15, 17, 20, 23, 25, 29, 32, 35, 39, 41, 45, 48, 51, 54, 57, 59, 63, 65, 69, 71, 74, 77, 80, 83, 86, 89, 91, 95, 97, 101, 103, 107, 109, 113, 116, 119, 122, 125, 128, 131, 134, 137, 140, 143, 147, 149, 153, 155, 159, 161, 165, 167, 171, 173, 177

Offset

0,2

Links

Ivan Neretin, Table of n, a(n) for n = 0..10000

Mathematica

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

Crossrefs

Cf. A022424 and references therein.

Sequence in context: A080646 A187579 A050102 * A271474 A120116 A199880

Adjacent sequences: A022429 A022430 A022431 * A022433 A022434 A022435

Keyword

nonn

Author

Clark Kimberling

Status

approved