OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
Amiram Eldar, Plot of a(n)/n^(3/2) for n = 1..1000
FORMULA
a(n) seems to be asymptotic to c*n^(3/2) where c = 0.49....
EXAMPLE
8^3-7^3 = 13^2 hence 8 is in the sequence.
MATHEMATICA
q[n_] := AnyTrue[Range[0, n - 1], IntegerQ@Sqrt[n^3 - #^3] &]; Select[Range[300], q] (* Amiram Eldar, May 08 2022 *)
PROG
(PARI) for(n=1, 420, if(sum(i=0, n-1, issquare(n^3-i^3))>0, print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jun 16 2004
STATUS
approved