|
| |
|
|
A094105
|
|
Primes of form prime(n)+2*prime(n+1).
|
|
1
| |
|
|
13, 19, 29, 37, 47, 127, 137, 181, 283, 307, 317, 367, 389, 541, 563, 577, 587, 677, 743, 811, 839, 907, 929, 937, 947, 1031, 1093, 1283, 1297, 1453, 1489, 1567, 1801, 1847, 1913, 2027, 2347, 2381, 2467, 2477, 2617, 2647, 2657, 2729, 2749, 2777, 2803, 2819
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
LINKS
| Zak Seidov, Table of n, a(n) for n = 1..1000.
|
|
|
EXAMPLE
| a(9) = 89 + 2*97 = 283.
|
|
|
MATHEMATICA
| f[n_] := (Prime[n] + 2Prime[n + 1]); f[ # ] & /@ Select[Range[160], PrimeQ[f[ # ]] &] (from Robert G. Wilson v)
|
|
|
PROG
| (PARI) q=2; forprime(p=3, 1000, if(isprime(r=q+2*p), print1(r, ", ")); q=p)
|
|
|
CROSSREFS
| Sequence in context: A123840 A063640 A092104 * A073620 A089391 A038954
Adjacent sequences: A094102 A094103 A094104 * A094106 A094107 A094108
|
|
|
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
|
| |
|
|
