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 A377842 #27 Dec 16 2024 14:30:14
%S A377842 -2,-3,-1,1,-3,5,7,3,11,13,9,17,13,9,23,25,21,17,31,27,35,37,33,41,37,
%T A377842 33,47,43,39,53,55,51,47,61,57,65,67,63,59,73,69,77,73,69,83,79,75,41,
%U A377842 91,87,95,97,93,101,103,99,107,103,99,83,91,87,71,121,117,125,121,117,131,133
%N A377842 a(n) = q - 2*p, where q is the greatest prime such that p=2*n - q is also prime.
%H A377842 M. E. B. Yamagishi, <a href="https://www.researchgate.net/publication/384406538_Goldbach%27s_Conjecture_A_Simple_and_Fast_Algorithm">Goldbach's Conjecture: A Simple and Fast Algorithm</a>, Preprint, 2024.
%t A377842 Table[Module[{p = 2, q},
%t A377842 While[True, q = 2 n - p; If[PrimeQ[p] && PrimeQ[q], Break[]];
%t A377842 p = NextPrime[p]]; q - 2 p], {n, 2, 100}]
%o A377842 (PARI) a(n) = my(q=precprime(2*n)); while (!isprime(2*n - q), q = precprime(q-1)); q - 2*(2*n-q); \\ _Michel Marcus_, Dec 12 2024
%Y A377842 Cf. A020481, A020482, A378896.
%K A377842 sign
%O A377842 2,1
%A A377842 _Michel Eduardo Beleza Yamagishi_, Dec 10 2024