login
A065130
a(n) = A005228(n) - A000217(n).
0
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
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
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Nov 14 2001
EXTENSIONS
Corrected definition by Omar E. Pol, Dec 24 2008
STATUS
approved