OFFSET
0,2
LINKS
Donovan Johnson, Table of n, a(n) for n = 0..3082
MATHEMATICA
a = Table[ n(n + 1)/2, {n, 1, 100} ]; b = {0}; c = Table[ 0, {5000} ]; Do[ b = Append[ b, a[ [ i ] ] + a[ [ j ] ] + a[ [ k ] ] ], {k, 1, 100}, {j, 1, k}, {i, 1, j} ]; b = Delete[ b, 1 ]; b = Sort[ b ]; l = Length[ b ]; Do[ If[ b[ [ n ] ] < 5000, c[ [ b[ [ n ] ] + 1 ] ]++ ], {n, 1, l} ]; Do[ k = 1; While[ c[ [ k ] ] != n, k++ ]; Print[ k - 1 ], {n, 0, 54} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Sep 20 2001
EXTENSIONS
More terms from Don Reble, Sep 21 2001
STATUS
approved