OFFSET
0,1
LINKS
Bert Dobbelaere, Table of n, a(n) for n = 0..57
MATHEMATICA
max = 20000; s = {}; Do[ k = ((i*(i+1)*(i+2) - j*(j+1)*(j+2))/6)^(1/3); If[IntegerQ[k] && !IntegerQ[i^(1/3)], Print[i]; AppendTo[s, i]], {j, 1, max}, {i, j+1, max}]; Sort[s] (* Jean-François Alcover, Dec 20 2012 *)
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Feb 04 2000
EXTENSIONS
Extended to 19 terms by Jean-François Alcover, Dec 20 2012
More terms from Joerg Arndt, Apr 06 2013
STATUS
approved