A022954 a(n) = a(n-1) + c(n+1) for n >= 3, a( ) increasing, given a(1)=1, a(2)=8; where c( ) is complement of a( ).

1, 8, 13, 19, 26, 35, 45, 56, 68, 82, 97, 113, 130, 148, 168, 189, 211, 234, 258, 283, 310, 338, 367, 397, 428, 460, 493, 527, 563, 600, 638, 677, 717, 758, 800, 843, 887, 933, 980, 1028, 1077, 1127, 1178, 1230, 1283, 1337, 1392, 1449, 1507, 1566

Offset

1,2

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A005228 and references therein.

Sequence in context: A023487 A045636 A214723 * A364411 A359853 A070130

Adjacent sequences: A022951 A022952 A022953 * A022955 A022956 A022957

Keyword

nonn

Author

Clark Kimberling

Status

approved