|
|
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( ).
|
|
2
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
Here "complement" refers to the numbers not in the sequence.
|
|
LINKS
|
|
|
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.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|