A247862 Primes p that generate the prime quadruplets p^3-4p+2k (for k = -2, -1, 1, 2).

3, 5, 67, 395407, 703903, 753583, 874373, 1280417, 1386977, 2920543, 3459487, 3697927, 3905527, 4384543, 4524427, 5630503, 6289343, 6379517, 7882873, 8599993, 8805653

Offset

1,1

Links

Table of n, a(n) for n=1..21.

Example

5^3-4*5-4=101, 5^3-4*5-2=103, 5^3-4*5+2=107, 5^3-4*5+4=109 is a prime quadruplet, so 5 is in the sequence.

Mathematica

Select[Prime[Range[600000]], AllTrue[#^3-4#+2{-2, -1, 1, 2}, PrimeQ]&] (* Harvey P. Dale, Feb 16 2024 *)

Prog

(PARI) lista(nn) = {forprime(p=2, nn, pp = p^3-4*p; if (isprime(pp-4) && isprime(pp-2) && isprime(pp+2) && isprime(pp+4), print1(p, ", ")); ); } \\ Michel Marcus, Oct 10 2014

Crossrefs

Cf. A247863.

Sequence in context: A076513 A222611 A261071 * A348205 A145616 A306255

Adjacent sequences: A247859 A247860 A247861 * A247863 A247864 A247865

Keyword

nonn,more

Author

Ray G. Opao, Sep 25 2014

Extensions

a(8)-a(21) from Michel Marcus, Oct 10 2014

Status

approved