A309069 Least k such that the rank of the elliptic curve y^2 = x^3 + k^2 is n.
1, 3, 15, 427, 17353
Offset: 0
Programs
-
PARI
{a(n) = my(k=1); while(ellanalyticrank(ellinit([0, 0, 0, 0, k^2]))[1]<>n, k++); k}
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
{a(n) = my(k=1); while(ellanalyticrank(ellinit([0, 0, 0, 0, k^2]))[1]<>n, k++); k}