login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
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
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 * A346163 A370853 A214791
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 | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 06:44 EDT 2024. Contains 371265 sequences. (Running on oeis4.)