|
%I #11 Mar 16 2014 03:06:51
%S 1,2,1,3,2,2,2,3,1,3,2,2,2,3,1,3,2,2,2,5,3,3,3,3,3,4,1,4,3,3,3,3,3,5,
%T 2,2,2,3,1,3,2,2,2,5,3,3,3,3,3,6,3,3,3,3,3,4,1,4,3,3,3,3,3,5,2,2,2,3,
%U 1,4,3,3,3,3,3,5,2,2,2,5,3,3,3,3,3,7,4,4,4,4,4,4,4,6,2,2,2
%N a(n) = (q - p)/2, where p is the largest prime < n and q is the smallest prime > n.
%H Jean-François Alcover, <a href="/A033559/a033559.txt">Frequency distribution up to 10^6 terms.</a>
%t a[n_] := (NextPrime[n] - NextPrime[n, -1])/2; Table[a[n], {n, 4, 100}] (* _Jean-François Alcover_, Apr 16 2013 *)
%K nonn
%O 4,2
%A _N. J. A. Sloane_
%E More terms from _Ben Paul Thurston_, Mar 30 2007
|
