OFFSET
1,1
COMMENTS
See A330363. The full list of 58 values is provided in the b-file.
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..58
MATHEMATICA
Sort[Table[Abs[(((((x+3)*x-1583)*x-9483)*x+401614)*x+2351352)*x/72-11351], {x, -45, 12}]] (* Paolo Xausa, Mar 13 2024 *)
PROG
(PARI) {my(v=vector(58), m=0, p, P(x)=(((((x/72+1/24)*x-1583/72)*x-3161/24)*x+200807/36)*x+97973/3)*x-11351); for(k=-45, oo, p=abs(P(k)); if(isprime(p), v[m++]=p, break)); vecsort(v)}
CROSSREFS
KEYWORD
nonn,fini,full,less
AUTHOR
Hugo Pfoertner, Dec 12 2019
STATUS
approved