|
|
A239392
|
|
Numbers n that have record value of prime p such that p + 2n is another prime.
|
|
3
|
|
|
1, 3, 11, 44, 56, 101, 359, 664, 821, 866, 2623, 2944, 5171, 12839, 18833, 29947, 38002, 51551, 54206, 90407, 179831, 325681, 436349, 1186739, 3044396, 3821264, 4622276, 6519176, 6795596, 12159494, 17428889, 27538202, 73919371, 127586456, 266466008, 423717053, 458430559
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
See A101045 of the values of p > 2.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MATHEMATICA
|
nn = 10^5; t = Table[j = 1; found = False; While[! found, j++; found = PrimeQ[Prime[j] + 2 i]]; Prime[j], {i, nn}]; mx = -1; t2 = {}; Do[If[t[[i]] > mx, mx = t[[i]]; AppendTo[t2, {i, t[[i]]}]], {i, nn}]; Transpose[t2][[1]]
|
|
CROSSREFS
|
Cf. A020483 (least p with p, q both prime, such that p+2n = q).
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|