A239392 Numbers n that have record value of prime p such that p + 2n is another prime.
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
Offset: 1
Keywords
Programs
-
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]]
Formula
Extensions
a(30)-a(35) from Giovanni Resta, Mar 19 2014
a(36)-a(37) from Hugo Pfoertner, Mar 11 2024
Comments