A129694 a(0)=0. a(n) = a(n-1) + sum of positive integers which are <= n and not part of the sequence.

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

Offset

0,3

Links

Table of n, a(n) for n=0..44.

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

Sequence in context: A342230 A023218 A073022 * A147015 A147023 A108402

Adjacent sequences: A129691 A129692 A129693 * A129695 A129696 A129697

Keyword

nonn

Author

Leroy Quet, Jun 01 2007

Extensions

More terms from Stefan Steinerberger, Jun 05 2007

Status

approved