login
A090690
Repeated primes in first occurrence in the progression kx^2+1.
0
13, 29, 37, 53, 61, 73, 97, 101, 109, 127, 137, 149, 157, 173, 181, 193, 197, 229, 257, 269, 277, 293, 317, 337, 349, 373, 389, 397, 421, 457, 461, 487, 509, 541, 557, 569, 577, 613, 617, 641, 653, 661, 673, 677, 701, 709, 733, 757, 773, 797, 809, 811, 821
OFFSET
1,1
COMMENTS
The program lists the repeated occurrences. All but one repeated occurrence were removed manually.
PROG
(PARI) mx2pmp(n, m) = { v=vector(n+1); c=0; for(a=1, n, for(x=1, n, y = a*x^2+1; if(isprime(y), c++; v[c]=y; break); ); ); v1=vecsort(v); for(j=1, n, if(v1[j]<>0 && v1[j]==v1[j+1], print1(v1[j]", "))) }
CROSSREFS
Sequence in context: A345705 A322388 A096451 * A160026 A141555 A036974
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, Dec 18 2003
STATUS
approved