|
Search: id:A094104
|
|
|
| A094104 |
|
Primes of form 2*prime(n)+prime(n+1). |
|
+0
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
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
a(7) = 2*29 + 31 = 89.
|
|
MATHEMATICA
|
f[n_] := (2Prime[n] + Prime[n + 1]); f[ # ] & /@ Select[Range[160], PrimeQ[f[ # ]] &] (from Robert G. Wilson v)
|
|
PROGRAM
|
(PARI) q=2; forprime(p=3, 1300, if(isprime(r=2*q+p), print1(r, ", ")); q=p)
|
|
CROSSREFS
|
Sequence in context: A134572 A079651 A097956 this_sequence A167513 A020455 A048215
Adjacent sequences: A094101 A094102 A094103 this_sequence A094105 A094106 A094107
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
Giovanni Teofilatto (g.teofilatto(AT)tiscalinet.it), May 02 2004
|
|
EXTENSIONS
|
Corrected and extended by Klaus Brockhaus (klaus-brockhaus(AT)t-online.de) and Robert G. Wilson v (rgwv(AT)rgwv.com), May 07 2004
|
|
|
Search completed in 0.002 seconds
|
