|
|
A064543
|
|
Lesser of two consecutive primes such that p + n*q is a perfect square, p < q.
|
|
2
|
|
|
17, 23, 13, 13, 41, 1627, 37, 17, 73, 431, 89, 37, 23, 571, 199, 41, 137, 211, 349, 941, 13729, 41299, 19259, 313, 5309, 1031, 42409, 2797, 53, 6211, 13339, 17, 43759, 47, 491, 13, 787, 139787, 13, 89, 21937, 29947, 3449, 24533, 8839, 18979, 619, 2713, 23
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
Do[ k = 1; While[ ! IntegerQ[ Sqrt[ Prime[ k ] + n*Prime[ k + 1 ] ] ], k++ ]; Print[ Prime[ k ] ], {n, 1, 182} ]
|
|
PROG
|
(PARI) ps(n, k) = prime(n)+k*prime(n+1) k=1; for(n=1, 10^6, if(issquare(ps(n, k)), print1(prime(n), " "); k++; n=0))
(PARI) ps(m, n)= { prime(m) + n*prime(m + 1) }
{ n=0; default(primelimit, 4000000); for (n=1, 100, m=1; while (!issquare(ps(m, n)), m++); write("b064543.txt", n, " ", prime(m)) ) } \\ Harry J. Smith, Sep 18 2009
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|