|
|
A129694
|
|
a(0)=0. a(n) = a(n-1) + sum of positive integers which are <= n and not part of the sequence.
|
|
0
|
|
|
0, 1, 3, 5, 11, 17, 29, 48, 75, 111, 157, 203, 261, 332, 417, 517, 633, 749, 883, 1036, 1209, 1403, 1619, 1858, 2121, 2409, 2723, 3064, 3433, 3802, 4201, 4631, 5093, 5588, 6117, 6681, 7281, 7918, 8593, 9307, 10061, 10856, 11693, 12573, 13497
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,3
|
|
LINKS
|
|
|
EXAMPLE
|
The positive integers which are <= 7 and are missing from the terms a(0) through a(6) are 2,4,6,7. So a(7) = a(6) + 2+4+6+7 = 48.
|
|
MATHEMATICA
|
a = {0}; For[n = 1, n < 60, n++, co = 0; For[i = 0, i <n + 1, i++, If[Length[ Intersection[{i}, a]] == 0, co = co + i]]; AppendTo[a, a[[ -1]] + co]]; a (* Stefan Steinerberger, Jun 05 2007 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|