A094104 Primes of the form 2*prime(n) + prime(n+1).
7, 11, 17, 43, 53, 61, 89, 179, 241, 313, 331, 353, 449, 593, 673, 683, 691, 719, 733, 809, 859, 1021, 1051, 1237, 1259, 1321, 1481, 1709, 1741, 1933, 1979, 2083, 2111, 2137, 2221, 2237, 2311, 2333, 2371, 2473, 2531, 2741, 2767, 2957, 3163, 3469, 3643
Offset: 1
Examples
a(7) = 2*29 + 31 = 89.
Links
- Zak Seidov, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A094105.
Programs
-
Mathematica
f[n_] := (2Prime[n] + Prime[n + 1]); f[ # ] & /@ Select[Range[160], PrimeQ[f[ # ]] &] (* Robert G. Wilson v *) Select[2#[[1]]+#[[2]]&/@Partition[Prime[Range[300]],2,1],PrimeQ] (* Harvey P. Dale, Jul 19 2022 *)
-
PARI
q=2;forprime(p=3,1300,if(isprime(r=2*q+p),print1(r,","));q=p)
Extensions
Corrected and extended by Klaus Brockhaus and Robert G. Wilson v, May 07 2004
Comments