|
| |
|
|
A220142
|
|
The values of k in A220141.
|
|
2
|
|
|
|
2, 6, 18, 24, 42, 54, 120, 258, 396, 480, 612, 840, 1074, 1800, 2130, 2172, 2256, 2550, 2694, 3282, 3492, 3690, 3810, 4110, 4626, 4788, 4860, 4992, 5148, 5280, 5958, 5994, 6804, 7920, 9654, 9660, 11082, 16134
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,1
|
|
|
LINKS
|
Table of n, a(n) for n=1..38.
|
|
|
MATHEMATICA
|
t = {{2, 2}}; Do[k = 1; While[! (PrimeQ[k*n - 1] && PrimeQ[k*n + 1]), k++]; If[k > t[[-1, 2]], AppendTo[t, {n, k}]], {n, Prime[Range[2, 1000]]}]; Transpose[t][[2]]
|
|
|
CROSSREFS
|
Cf. A071407, A220141.
Sequence in context: A342035 A168149 A275990 * A032649 A237989 A185382
Adjacent sequences: A220139 A220140 A220141 * A220143 A220144 A220145
|
|
|
KEYWORD
|
nonn,more
|
|
|
AUTHOR
|
T. D. Noe, Jan 08 2013
|
|
|
EXTENSIONS
|
More terms from Amiram Eldar, Dec 30 2019
|
|
|
STATUS
|
approved
|
| |
|
|
