|
Search: id:A097523
|
|
|
| A097523 |
|
a(n) = least k such that k-P(n) and k+P(n) are both primes with P(i)=i-th prime. |
|
+0
1
|
|
| 5, 8, 8, 10, 18, 16, 20, 22, 30, 32, 36, 42, 48, 46, 50, 56, 72, 66, 70, 78, 76, 84, 90, 92, 100, 132, 108, 120, 114, 116, 130, 138, 140, 142, 162, 156, 160, 168, 170, 176, 210, 186, 198, 196, 200, 202, 222, 226, 230, 232, 246, 252, 246, 258, 264, 294, 272, 276
(list; graph; listen)
|
|
|
OFFSET
|
1,1
|
|
|
EXAMPLE
|
P(10)=29, 32-29=3 32+29=61 so a(10)=32
|
|
MATHEMATICA
|
f[n_] := Block[{k = Prime[n], p = Prime[n]}, While[ !PrimeQ[k - p] || !PrimeQ[k + p], k++ ]; k]; Table[ f[n], {n, 60}] (from Robert G. Wilson v Aug 28 2004)
|
|
CROSSREFS
|
Sequence in context: A073822 A031165 A113729 this_sequence A144174 A021633 A165991
Adjacent sequences: A097520 A097521 A097522 this_sequence A097524 A097525 A097526
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Pierre CAMI (pierrecami(AT)tele2.fr), Aug 27 2004
|
|
EXTENSIONS
|
Corrected by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 28 2004
|
|
|
Search completed in 0.002 seconds
|
