|
| |
|
|
A097523
|
|
a(n) = least k such that k-P(n) and k+P(n) are both primes with P(i)=i-th prime.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
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: A198606 A031165 A113729 * A197815 A021633 A178309
Adjacent sequences: A097520 A097521 A097522 * A097524 A097525 A097526
|
|
|
KEYWORD
| easy,nonn
|
|
|
AUTHOR
| Pierre CAMI (pierre-cami(AT)bbox.fr), Aug 27 2004
|
|
|
EXTENSIONS
| Corrected by Robert G. Wilson v (rgwv(AT)rgwv.com), Aug 28 2004
|
| |
|
|
