login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo

Thanks to everyone who made a donation during our annual appeal!
To see the list of donors, or make a donation, see the OEIS Foundation home page.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A259772 Primes p such that p^3 + q^2 + r is also prime, where p,q,r are consecutive primes. 2

%I

%S 3,17,19,43,53,89,107,149,293,401,439,449,659,809,821,937,1009,1031,

%T 1091,1097,1123,1163,1181,1259,1277,1367,1427,1657,1721,1777,1789,

%U 1811,1987,2027,2063,2207,2333,2417,2503,2657,2713,3067,3079,3083,3251,3389,3491,3527

%N Primes p such that p^3 + q^2 + r is also prime, where p,q,r are consecutive primes.

%H Seiichi Manyama, <a href="/A259772/b259772.txt">Table of n, a(n) for n = 1..1000</a>

%e a(2) = 17 is prime: 17^3 + 19^2 + 23 = 5297 which is also prime.

%e a(3) = 19 is prime: 19^3 + 23^2 + 29 = 7417 which is also prime.

%p select(n -> isprime(n) and isprime((n)^3+nextprime(n)^2+nextprime(nextprime((n)))), [seq(n, n=1..10000)]);

%t Select[Prime[Range[1000]], PrimeQ[#^3 + NextPrime[#]^2 + NextPrime[NextPrime[#]]]&]

%o (PARI) forprime(p=1, 3000, q=nextprime(p+1); r=nextprime(q+1); k=(p^3 + q^2 + r); if(isprime(k), print1(p,", ")))

%o (MAGMA) [p: p in PrimesUpTo (3000) | IsPrime(k) where k is (p^3 + NextPrime(p)^2 + NextPrime(NextPrime(p)))];

%Y Cf. A000040, A034962, A133529, A133530, A258269, A304292.

%K nonn

%O 1,1

%A _K. D. Bajpai_, Jul 05 2015

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified January 22 13:36 EST 2020. Contains 331149 sequences. (Running on oeis4.)