A107440 - OEIS

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

A107440

Prime numbers p such that p+6, p^2+6^2, p^4+6^4, p^8+6^8 are all primes.

601, 1825891, 5091761, 8183891, 12909551, 16177801, 22302221, 24233761, 26542361

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,1

LINKS

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

MATHEMATICA

Select[Prime[Range[1000000]], PrimeQ[ #+6]&&PrimeQ[ #^2+6^2]&&PrimeQ[ #^4+6^4]&&PrimeQ[ #^8+6^8]&]

Select[Prime[Range[2*10^6]], AllTrue[{#+6, #^2+36, #^4+1296, #^8+ 1679616}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Jun 22 2019 *)

CROSSREFS

Sequence in context: A278206 A094231 A292069 * A218055 A045940 A124057

Adjacent sequences: A107437 A107438 A107439 * A107441 A107442 A107443

KEYWORD

nonn

AUTHOR

Zak Seidov, May 26 2005

EXTENSIONS

More terms from Harvey P. Dale, Jun 22 2019

STATUS

approved