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

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A261748 Primes of the form p^3 - q^3 + r^3 where p, q, r are consecutive primes. 1
 19081, 17569, 124561, 284129, 461933, 12994939, 59888791, 136812059, 210687859, 381287213, 430477739, 967646789, 1003292441, 1214844443, 1235842577, 1630956673, 2035265203, 3409511489, 3760252651, 4212399799, 5010219631, 5823581399, 6487158329, 7774729381, 8729833339 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,1 COMMENTS Indices of the initial primes p: 8, 9, 14, 18, 20, 51, 76, 96, 108, 128, 133, 166, 168, ..., . - Robert G. Wilson v, Sep 03 2015 LINKS K. D. Bajpai, Table of n, a(n) for n = 1..10000 EXAMPLE 19081 appears in the sequence because 19^3 - 23^3 + 29^3 = 19081 which is prime and 19, 23, 29 are consecutive primes. 17569 appears in the sequence because 23^3 - 29^3 + 31^3 = 17569 which is prime and 23, 29, 31 are consecutive primes. MATHEMATICA Select[Table[(Prime[n]^3 - Prime[n + 1]^3 + Prime[n + 2]^3), {n, 1, 1000}], PrimeQ] Select[#[[1]]-#[[2]]+#[[3]]&/@Partition[Prime[Range[500]]^3, 3, 1], PrimeQ] (* Harvey P. Dale, Jul 29 2021 *) PROG (PARI) for(n=1, 500, k=(prime(n)^3 - prime(n+1)^3 + prime(n+2)^3 ); if(isprime(k), print1(k, ", "))); (Magma) [k: n in [1..1000] | IsPrime(k) where k is (NthPrime(n)^3 - NthPrime(n+1)^3 + NthPrime(n+2)^3)]; CROSSREFS Cf. A000040, A000578, A030078, A164129, A165612. Sequence in context: A339962 A235928 A031643 * A089522 A251041 A234724 Adjacent sequences: A261745 A261746 A261747 * A261749 A261750 A261751 KEYWORD nonn AUTHOR K. D. Bajpai, Aug 30 2015 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.

Last modified July 14 18:31 EDT 2024. Contains 374322 sequences. (Running on oeis4.)