login
A309147
Least k such that the rank of the elliptic curve y^2 = x^3 + (k^2 + 6*k - 3)*x^2 - 16*k*x is n.
2
1, 4, 28, 356
OFFSET
0,2
PROG
(PARI) {a(n) = my(k=1); while(ellanalyticrank(ellinit([0, k^2+6*k-3, 0, -16*k, 0]))[1]<>n, k++); k}
CROSSREFS
Sequence in context: A377551 A193198 A165193 * A217903 A339283 A095288
KEYWORD
nonn,more,hard
AUTHOR
Seiichi Manyama, Jul 14 2019
STATUS
approved