|
%I #10 Jun 24 2018 21:00:14
%S 0,0,0,0,0,0,-1,0,1,0,0,0,-1,0,1,0,0,0,-1,0,1,0,-2,-1,0,1,2,0,0,0,-2,
%T -1,0,1,2,0,-1,0,1,0,0,0,-1,0,1,0,-2,-1,0,1,2,0,-2,-1,0,1,2,0,0,0,-2,
%U -1,0,1,2,0,-1,0,1,0,0,0,-2,-1,0,1,2,0,-1,0,1,0,-2,-1,0,1,2,0,-3,-2,-1,0,1,2,3,0,-1,0,1,0,0,0,-1,0,1,0,0,0,-1,0,1,0
%N Difference between n and the average of largest prime less than or equal to n and smallest prime greater than or equal to n.
%H Harry J. Smith, <a href="/A063933/b063933.txt">Table of n, a(n) for n = 2..1000</a>
%F a(n) = n - (A007917(n) + A007918(n))/2 = n - A063932(n).
%F a(n) = 0 for numbers in A063934 (i.e., in A000040 or A024675).
%e a(10) = 10 - (11 - 7)/2 = 1; a(11) = 11 - (11 + 11)/2 = 0.
%o (PARI) { for (n=2, 1000, write("b063933.txt", n, " ", n - (precprime(n) + nextprime(n))/2) ) } \\ _Harry J. Smith_, Sep 03 2009
%K sign
%O 2,23
%A _Henry Bottomley_, Aug 21 2001
|
