OFFSET
1,1
FORMULA
A060838(a(n)) = 5.
PROG
(PARI) is(n)=my(c=prod(i=1, #f~, f[i, 1]^(f[i, 2]\3)), r=n/c^3, E=ellinit([0, 16*r^2]), eri=ellrankinit(E), mwr=ellrank(eri), ar); if(r<489489, return(0)); if(mwr[1]>5 || mwr[2]<5, return(0)); ar=ellanalyticrank(E)[1]; if(ar<2, return(0)); for(effort=1, 99, mwr=ellrank(eri, effort); if(mwr[1]>5 || mwr[2]<5, return(0), mwr[1]==5 && mwr[2]==5, return(1))); Str("unknown; ", ar==5, " under BSD conjecture") \\ Charles R Greathouse IV, Jan 25 2023
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Maksym Voznyy and Charles R Greathouse IV, Jan 25 2023
STATUS
approved