A144296 Records in A144294.
3, 5, 7, 13, 17, 19, 31, 41, 43, 47, 53, 71, 79, 89, 103, 127, 131, 137
Offset: 1
Programs
-
PARI
f(n)=my(k=n+(sqrtint(4*n)+1)\2); forprime(p=2, , if(!issquare(Mod(k, p)), return(p))); \\ A144294 lista(nn) = {my(v=vector(nn, n, f(n))); my(m=0, nm=0); for (n=1, nn, nm = v[n]; if (nm > m, print1(nm, ", "); m = nm;););} \\ Michel Marcus, Jun 25 2021
Extensions
a(9)-a(12) from R. J. Mathar, Dec 04 2008
a(13)-a(15) from Michel Marcus, Jun 25 2021
a(16)-a(18) from Michael S. Branicky, Sep 30 2024