|
%I #10 Jun 26 2021 09:20:24
%S 1,2,4,12,82,231,380,2990,20954,40953,42852,182492,859647,8039644,
%T 11990003
%N Where records occur in A144294.
%o (PARI) f(n)=my(k=n+(sqrtint(4*n)+1)\2); forprime(p=2, , if(!issquare(Mod(k, p)), return(p))); \\ A144294
%o 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(n, ", "); m = nm;););} \\ _Michel Marcus_, Jun 25 2021
%Y Cf. A144294, A144296.
%K nonn,more
%O 1,2
%A _N. J. A. Sloane_, Dec 03 2008
%E a(9)-a(12) from _R. J. Mathar_, Dec 04 2008
%E a(13)-a(15) from _Michel Marcus_, Jun 25 2021
|
