This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A239392 #15 Mar 11 2024 12:04:12 %S A239392 1,3,11,44,56,101,359,664,821,866,2623,2944,5171,12839,18833,29947, %T A239392 38002,51551,54206,90407,179831,325681,436349,1186739,3044396,3821264, %U A239392 4622276,6519176,6795596,12159494,17428889,27538202,73919371,127586456,266466008,423717053,458430559 %N A239392 Numbers n that have record value of prime p such that p + 2n is another prime. %C A239392 See A101045 of the values of p > 2. %F A239392 a(n) = A370998(A371069(n)). - _Hugo Pfoertner_, Mar 11 2024 %t A239392 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 A239392 Cf. A020483 (least p with p, q both prime, such that p+2n = q). %Y A239392 Cf. A370998, A371069. %K A239392 nonn %O A239392 1,2 %A A239392 _T. D. Noe_, Mar 19 2014 %E A239392 a(30)-a(35) from _Giovanni Resta_, Mar 19 2014 %E A239392 a(36)-a(37) from _Hugo Pfoertner_, Mar 11 2024