OFFSET
1,1
MATHEMATICA
Complement[Range[0, 1000], Union[Flatten[Outer[Plus, Table[n^3, {n, 0, 10}], Table[n(n+1)/2, {n, 0, 50}]]]]]
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Corrected and extended by Dean Hickerson, Aug 30 2001
STATUS
approved