|
| |
|
|
A112686
|
|
Smallest prime p such that the sum of the predecessor and successor primes is divisible by n.
|
|
1
| |
|
|
3, 5, 23, 7, 5, 23, 3, 7, 29, 5, 31, 23, 79, 13, 73, 7, 151, 29, 59, 11, 61, 31, 229, 23, 73, 79, 29, 13, 149, 73, 311, 17, 31, 151, 71, 37, 181, 59, 79, 19, 283, 61, 521, 43, 89, 229, 1277, 23, 197, 73, 151, 79, 53, 29, 109, 83, 59, 149, 113, 89, 127, 311, 61, 383, 389, 31
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 2}, While[ Mod[ Prime[k - 1] + Prime[k + 1], n] != 0, k++ ]; Prime[k]]; Array[f, 66]
|
|
|
CROSSREFS
| Cf. A000040, A112545, A112681, A112794, A112731, A112789, A112795, A112796, A112804, A112847, A112859, A113155, A113156, A113157, A113158.
Sequence in context: A124423 A178377 A064187 * A088121 A144103 A137084
Adjacent sequences: A112683 A112684 A112685 * A112687 A112688 A112689
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 11 2006
|
| |
|
|
