This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 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 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} ] 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 Cf. A064545. Sequence in context: A279428 A275244 A002252 * A214791 A050712 A068581 Adjacent sequences:  A064540 A064541 A064542 * A064544 A064545 A064546 KEYWORD nonn AUTHOR Jason Earls, Oct 08 2001 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified October 23 23:51 EDT 2019. Contains 328379 sequences. (Running on oeis4.)