|
| |
|
|
A064397
|
|
Numbers n such that p(n) + p(n+1) is a square. p(n) is n-th prime.
|
|
7
| |
|
|
7, 15, 20, 61, 152, 190, 293, 377, 492, 558, 789, 919, 942, 1768, 2343, 2429, 2693, 2952, 3136, 3720, 4837, 5421, 5722, 6870, 7347, 8126, 8193, 9465, 9857, 9927, 10410, 10483, 10653, 12685, 13763, 13955, 16033, 16342, 17859, 18367, 18474
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Zak Seidov, Table of n, a(n) for n=1..1000
|
|
|
EXAMPLE
| n=15: prime(15) = 47 and prime(16) = 53, 47+53 = 100 = 10^2.
|
|
|
MATHEMATICA
| lst={}; Do[p1=Prime[n]; p2=Prime[n+1]; q=(p1+p2)^0.5; If[q==IntegerPart[q], AppendTo[lst, n]], {n, 1, 9!}]; lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), Sep 02 2008]
|
|
|
PROG
| (PARI) j=[]; for(n=1, 30000, x=prime(n)+prime(n+1); if(issquare(x), j=concat(j, n))); j
(PARI) { n=0; default(primelimit, 8500000); for (m=1, 10^9, if (issquare(prime(m) + prime(m + 1)), write("b064397.txt", n++, " ", m); if (n==175, break)) ) } [From Harry J. Smith (hjsmithh(AT)sbcglobal.net), Sep 13 2009]
(MAGMA) [n: n in [0..50000]| IsSquare(NthPrime(n) +NthPrime(n+1))]; // Vincenzo Librandi, Apr 06 2011
|
|
|
CROSSREFS
| Sequence in context: A138641 A115783 A140109 * A151971 A014659 A179676
Adjacent sequences: A064394 A064395 A064396 * A064398 A064399 A064400
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Jason Earls (zevi_35711(AT)yahoo.com), Sep 29 2001
|
| |
|
|
