1,1

Smallest such prime is 13 and the relevant four primes are

2, 173, 815730977 and a 571-digit prime.

{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

Cf. A082101, A094473-A094499.

Sequence in context: A134159 A070905 A068532 this_sequence A057842 A023345 A006541

Adjacent sequences: A094313 A094314 A094315 this_sequence A094317 A094318 A094319

more,nonn

Labos E. (labos(AT)ana.sote.hu), Jun 02 2004