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
KEYWORD
nonn
AUTHOR
K. D. Bajpai, Aug 30 2015
STATUS
approved