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 A060267 #11 Sep 16 2020 05:00:54 %S A060267 2,2,4,4,2,4,4,2,4,4,6,6,6,2,6,6,6,4,4,2,4,4,6,6,6,6,6,6,2,6,6,6,4,4, %T A060267 2,6,6,6,4,4,6,6,6,8,8,8,8,4,4,2,4,4,2,4,4,14,14,14,14,14,14,14,4,4,6, %U A060267 6,6,2,10,10,10,10,10,2,6,6,6,6,6,6,4,4,6,6,6,6,6,6,2,10,10,10,10,10,2,4 %N A060267 Difference between 2 closest primes surrounding 2n. %H A060267 Michael De Vlieger, <a href="/A060267/b060267.txt">Table of n, a(n) for n = 2..10000</a> %e A060267 a(3) = 2 because the closest primes to 2*3 = 6 are (5,7) and the difference between these is 2. - _Michael De Vlieger_, Nov 02 2017 %p A060267 with(numtheory): [seq(nextprime(2*i)-prevprime(2*i),i=2..256)]; %t A060267 Array[Subtract @@ NextPrime[#, {1, -1}] &[2 #] &, 96, 2] (* _Michael De Vlieger_, Nov 02 2017 *) %t A060267 NextPrime[#]-NextPrime[#,-1]&/@(2*Range[2,100]) (* _Harvey P. Dale_, Nov 07 2017 *) %o A060267 (PARI) a(n) = nextprime(2*n+1) - precprime(2*n-1); \\ _Michel Marcus_, Sep 16 2020 %Y A060267 Cf. A020482, A049653, A060264, A060265, A060266, A060268. %K A060267 nonn %O A060267 2,1 %A A060267 _Labos Elemer_, Mar 23 2001