|
Search: id:A064543
|
|
|
| A064543 |
|
Lesser of two consecutive primes such that p + n*q is a perfect square, p<q. |
|
+0
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; listen)
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Harry J. Smith, Table of n, a(n) for n=1,...,100
|
|
MATHEMATICA
|
Do[ k = 1; While[ ! IntegerQ[ Sqrt[ Prime[ k ] + n*Prime[ k + 1 ] ] ], k++ ]; Print[ Prime[ k ] ], {n, 1, 182} ]
|
|
PROGRAM
|
(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)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 18 2009]
|
|
CROSSREFS
|
Cf. A064545.
Sequence in context: A136198 A158246 A002252 this_sequence A050712 A068581 A166864
Adjacent sequences: A064540 A064541 A064542 this_sequence A064544 A064545 A064546
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Jason Earls (zevi_35711(AT)yahoo.com), Oct 08 2001
|
|
|
Search completed in 0.002 seconds
|
