A054224 A054221 without cubes.

7, 10, 23, 48, 199, 621, 978, 1222, 3563, 4034, 4331, 5017, 6442, 6886, 7783, 8699, 11157, 12287, 12386, 30258, 30525, 31629, 35461, 49250, 52737, 55404, 64356, 65191, 72178, 119109, 120806, 126941

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

Cf. A054221.

Sequence in context: A120312 A074377 A103119 * A183330 A196316 A134329

Adjacent sequences: A054221 A054222 A054223 * A054225 A054226 A054227

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