login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

Numbers n that have record value of prime p such that p + 2n is another prime.
3

%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