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 A031168 #21 Sep 08 2022 08:44:50 %S A031168 15,16,18,22,20,24,24,24,24,24,28,24,26,28,26,26,24,28,30,30,30,28,26, %T A031168 24,30,30,34,32,40,38,30,32,30,34,30,30,34,30,30,26,32,42,36,36,36,40, %U A031168 30,28,30,34,36,32,36,30,26,30,38,40,36,36,48,44,40,38,40,42,36 %N A031168 a(n) = prime(n+6) - prime(n). %H A031168 Reinhard Zumkeller, <a href="/A031168/b031168.txt">Table of n, a(n) for n = 1..10000</a> %p A031168 seq(ithprime(n+6)-ithprime(n), n=1..70); %t A031168 a=6; t=Array[Prime,123]; Drop[t,a]-Drop[t,-a] (* _Vladimir Joseph Stephan Orlovsky_, Aug 13 2009 *) %t A031168 Last[#]-First[#]&/@Partition[Prime[Range[80]],7,1] (* _Harvey P. Dale_, Jan 12 2012 *) %o A031168 (Magma) [NthPrime(n+6)-NthPrime(n): n in [1..100] ]; // _Vincenzo Librandi_, Apr 23 2011 %o A031168 (Haskell) %o A031168 a031168 n = a031168_list !! (n-1) %o A031168 a031168_list = zipWith (-) (drop 6 a000040_list) a000040_list %o A031168 -- _Reinhard Zumkeller_, Aug 23 2015 %Y A031168 Cf. A000040, A001223, A031131, A031165, A031166, A031167, A031169, A031170, A031171, A031172. %K A031168 nonn %O A031168 1,1 %A A031168 _Jeff Burch_ %E A031168 Offset changed from 2 to 1, and a(1)=15 added, by _Vincenzo Librandi_, Apr 23 2011