|
| |
|
|
A094316
|
|
Primes p for which 2^j+p^j is also prime for j in {0,2,8,512}.
|
|
0
| |
|
|
13, 4133, 1831343, 2320583, 3828673, 9173893, 23658377, 24037537, 42489677, 56253203, 78222863, 96325093, 99846337, 110453773, 110468653, 117748427, 122173187, 130937467, 138072163, 146981537, 174978913, 184050553, 186927817
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
EXAMPLE
| Smallest such prime is 13 and the relevant four primes are
2, 173, 815730977 and a 571-digit prime.
|
|
|
MATHEMATICA
| {ta=Table[0, {100}], u=1}; {exponents, {a, b, c, d}={0, 2, 8, 512}} Do[s0=Prime[j]^a+2^a; s1=Prime[j]^b+2^b; s2=Prime[j]^c+2^c; s3=Prime[j]^d+2^d; If[PrimeQ[s0]&&PrimeQ[s1]&&PrimeQ[s2]&&PrimeQ[s3], Print[{j, Prime[j]}]; ta[[u]]=Prime[j]; u=u+1], {j, 1, 1000000}] ta
|
|
|
CROSSREFS
| Cf. A082101, A094473-A094499.
Sequence in context: A070905 A180768 A068532 * A174310 A057842 A203676
Adjacent sequences: A094313 A094314 A094315 * A094317 A094318 A094319
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Labos E. (labos(AT)ana.sote.hu), Jun 02 2004
|
|
|
EXTENSIONS
| a(6)-a(23) from Donovan Johnson (donovan.johnson(AT)yahoo.com), Oct 12 2008
|
| |
|
|
