A065130 a(n) = A005228(n) - A000217(n).

0, 0, 1, 2, 3, 5, 7, 9, 11, 14, 17, 20, 23, 26, 30, 34, 38, 42, 46, 50, 54, 59, 64, 69, 74, 79, 84, 89, 94, 100, 106, 112, 118, 124, 130, 136, 142, 148, 155, 162, 169, 176, 183, 190, 197, 204, 211, 218, 226, 234, 242, 250, 258, 266, 274, 282

Offset

1,4

Links

Table of n, a(n) for n=1..56.

Mathematica

a = {1}; d = 2; k = 1; Do[ While[ Position[a, d] != {}, d++ ]; k = k + d; d++; a = Append[a, k], {n, 1, 55} ]; b = Table[ n(n + 1)/2, {n, 1, 56} ]; a-b

Crossrefs

Sequence in context: A127721 A292620 A241907 * A023535 A056834 A183140

Adjacent sequences: A065127 A065128 A065129 * A065131 A065132 A065133

Keyword

easy,nonn

Author

Robert G. Wilson v, Nov 14 2001

Extensions

Corrected definition by Omar E. Pol, Dec 24 2008

Status

approved