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.
%I A346656 #34 Sep 08 2022 08:46:26 %S A346656 7,17,23,47,79,89,103,113,127,137,167,193,199,223,233,239,257,271,353, %T A346656 359,367,409,431,433,439,449,457,463,479,569,577,593,599,601,647,673, %U A346656 727,769,809,823,839,857,929,937,983,1009,1031,1039,1063,1087,1097,1129,1151,1193,1201,1217,1223 %N A346656 Primes p for which the elliptic curve y^2 = x^3 + 2*p*x has positive rank. %H A346656 P. G. Walsh, <a href="https://doi.org/10.1216/RMJ-2011-41-1-311">Maximal ranks and integer points on a family of elliptic curves II</a>, Rocky Mountain J. Math. 41 (2011), no. 1, 311-317. %o A346656 (Magma) %o A346656 for i in [2..200] do %o A346656 p:=NthPrime(i); %o A346656 E:=EllipticCurve([2*p,0]); %o A346656 if Rank(E) gt 0 then print(p); %o A346656 end if; %o A346656 end for; %o A346656 (PARI) forprime(p=2,1250,my(E=ellinit([2*p,0]));if(ellanalyticrank(E)[1]>0,print1(p,", "))) \\ _Hugo Pfoertner_, Aug 06 2021 %K A346656 nonn %O A346656 1,1 %A A346656 _Gary Walsh_, Aug 06 2021