OFFSET
1,1
LINKS
P. G. Walsh, Maximal ranks and integer points on a family of elliptic curves II, Rocky Mountain J. Math. 41 (2011), no. 1, 311-317.
PROG
(Magma)
for i in [2..200] do
p:=NthPrime(i);
E:=EllipticCurve([2*p, 0]);
if Rank(E) gt 0 then print(p);
end if;
end for;
(PARI) forprime(p=2, 1250, my(E=ellinit([2*p, 0])); if(ellanalyticrank(E)[1]>0, print1(p, ", "))) \\ Hugo Pfoertner, Aug 06 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Gary Walsh, Aug 06 2021
STATUS
approved