A022956 Unique increasing sequence satisfying a(n) = a(n-4) + c(n-4); where c( ) is complement of a( ).

1, 2, 3, 4, 6, 9, 11, 14, 18, 22, 26, 30, 35, 41, 46, 51, 58, 65, 71, 78, 86, 94, 102, 110, 119, 128, 138, 147, 157, 167, 178, 189, 200, 211, 223, 236, 248, 260, 273, 288, 301, 314, 328, 344, 358, 373, 388, 405, 420, 436, 452, 471, 487, 504, 521, 541

Offset: 1

Author

Clark Kimberling

Keywords

• nonn

Comments

Here "complement" refers to the numbers not in the sequence.

Links

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

Crossrefs

Cf. A005228 and references therein.

Programs

Mathematica

Fold[Append[#1, #1[[#2]] + Complement[Range[Max@#1 + 1], #1][[#2]]] &, {1, 2, 3, 4}, Range[52]] (* Ivan Neretin, Apr 05 2016 *)

Extensions

Missing term a(44)=344 added by Ivan Neretin, Apr 05 2016