Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #15 Mar 11 2024 12:04:12
%S 1,3,11,44,56,101,359,664,821,866,2623,2944,5171,12839,18833,29947,
%T 38002,51551,54206,90407,179831,325681,436349,1186739,3044396,3821264,
%U 4622276,6519176,6795596,12159494,17428889,27538202,73919371,127586456,266466008,423717053,458430559
%N Numbers n that have record value of prime p such that p + 2n is another prime.
%C See A101045 of the values of p > 2.
%F a(n) = A370998(A371069(n)). - _Hugo Pfoertner_, Mar 11 2024
%t 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]]
%Y Cf. A020483 (least p with p, q both prime, such that p+2n = q).
%Y Cf. A370998, A371069.
%K nonn
%O 1,2
%A _T. D. Noe_, Mar 19 2014
%E a(30)-a(35) from _Giovanni Resta_, Mar 19 2014
%E a(36)-a(37) from _Hugo Pfoertner_, Mar 11 2024