|
| |
|
|
A112545
|
|
Least odd number k greater than 1 such that the sum of the predecessor and successor primes of the n-th prime is divisible by k or if no such odd k exists then 2.
|
|
1
| |
|
|
7, 5, 2, 5, 7, 2, 5, 3, 3, 3, 3, 5, 11, 3, 53, 3, 3, 3, 5, 3, 3, 3, 3, 5, 5, 13, 53, 5, 59, 61, 3, 3, 11, 5, 3, 157, 3, 3, 173, 3, 5, 11, 97, 7, 3, 211, 3, 113, 5, 3, 3, 5, 3, 257, 263, 3, 3, 3, 5, 7, 5, 151, 5, 157, 7, 3, 3, 7, 5, 3, 3, 3, 373, 3, 3, 3, 5, 13, 5, 5, 5, 7, 3, 3, 3, 3, 5, 5, 29, 3, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 2,1
|
|
|
MATHEMATICA
| f[n_] := Block[{k = 3, s = Prime[n - 1] + Prime[n + 1]}, While[Mod[s, k] != 0 && k <= s, k += 2]; If[k > s, 2, k]]; Table[ f[n], {n, 2, 92}]
|
|
|
CROSSREFS
| Cf. A000040, A112686, A112681, A112794, A112731, A112789, A112795, A112796, A112804, A112847, A112859, A113155, A113156, A113157, A113158.
Sequence in context: A191503 A070404 A135537 * A021934 A021097 A087273
Adjacent sequences: A112542 A112543 A112544 * A112546 A112547 A112548
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 11 2006
|
| |
|
|
