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