PARI GP ispseudoprime

nn is the integer partition of number ì by Ramanujan asymptotic formula

numbpart(i) is the integer partition of number i


n=80874198;
RAMA4(n)=a
default(realprecision,20000)
i=n/2
nn=exp((Pi*(2*i/3)^0.5))/(4*i*3^0.5);
b=nn/numbpart(i);
a=floor((exp((Pi*(2*n/3)^0.5))/(4*n*3^0.5))/b^0.46)

To be completed...