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 A063932 #11 Jun 24 2018 19:58:41 %S A063932 2,3,4,5,6,7,9,9,9,11,12,13,15,15,15,17,18,19,21,21,21,23,26,26,26,26, %T A063932 26,29,30,31,34,34,34,34,34,37,39,39,39,41,42,43,45,45,45,47,50,50,50, %U A063932 50,50,53,56,56,56,56,56,59,60,61,64,64,64,64,64,67,69,69,69,71,72,73 %N A063932 Average of largest prime less than or equal to n and smallest prime greater than or equal to n. %H A063932 Harry J. Smith, <a href="/A063932/b063932.txt">Table of n, a(n) for n = 2..1000</a> %F A063932 a(n) = (A007917(n) + A007918(n))/2 = n - A063933(n). %e A063932 a(7) = (7 + 7)/2 = 7; %e A063932 a(8) = (7 + 11)/2 = 9. %t A063932 Table[Mean[{NextPrime[n-1],NextPrime[n+1,-1]}],{n,2,80}] (* _Harvey P. Dale_, Nov 22 2011 *) %o A063932 (PARI) { for (n=2, 1000, write("b063932.txt", n, " ", (precprime(n) + nextprime(n))/2) ) } \\ _Harry J. Smith_, Sep 02 2009 %Y A063932 Interleaving of A000040 and A001223-1 copies of A024675. Cf. A063934. %K A063932 nonn %O A063932 2,1 %A A063932 _Henry Bottomley_, Aug 21 2001