OFFSET
1,2
COMMENTS
See A101045 of the values of p > 2.
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
KEYWORD
nonn
AUTHOR
T. D. Noe, Mar 19 2014
EXTENSIONS
a(30)-a(35) from Giovanni Resta, Mar 19 2014
a(36)-a(37) from Hugo Pfoertner, Mar 11 2024
STATUS
approved