OFFSET
1,3
COMMENTS
Abscissas of integral points on the elliptic curve: m^2 = 8*n^3 + 48*n^2 + 64*n + 1.
MATHEMATICA
TNQ[n_]:=IntegerQ[Sqrt[1+8n]]; Select[Range[7500], TNQ[ #(#+2)(#+4)]&]
CROSSREFS
KEYWORD
nonn,fini,full
AUTHOR
Zak Seidov, Sep 29 2009
EXTENSIONS
fini, full keywords from Max Alekseyev, Oct 01 2009
Initial 0 added by Zak Seidov, Oct 04 2009 at the suggestion of Alexander R. Povolotsky.
STATUS
approved