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 A309031 #27 Sep 08 2022 08:46:21 %S A309031 1918,5190,6123,6953,9603,10759,12483,13398,14673,14795,15910,15934, %T A309031 16238,17753,18278,18705,18814,20148,20398,20658,23180,23953,24475, %U A309031 25988,26809,28633,29274,30340,30688,31073,31098,31174,32118,33218,33278,34804,36955,37214,37298 %N A309031 Numbers k for which rank of the elliptic curve y^2=x^3+k*x is 4. %o A309031 (PARI) for(k=1, 1e4, if(ellanalyticrank(ellinit([0, 0, 0, k, 0]))[1]==4, print1(k", "))) %o A309031 (Magma) for k in[1..10000] do if Rank(EllipticCurve([0,0,0,k,0])) eq 4 then print k; end if; end for; // _Vaclav Kotesovec_, Jul 08 2019 %Y A309031 Cf. A002158 (rank 0), A002159 (rank 1), A076329 (rank 2), A309030 (rank 3), this sequence (rank 4). %Y A309031 Cf. A060953, A309034. %K A309031 nonn %O A309031 1,1 %A A309031 _Seiichi Manyama_, Jul 08 2019