|
%I #8 Apr 17 2013 10:15:09
%S 2,3,6,6,10,12,17,17,21,24,27,30,35,35,39,42,46,46,53,56,56,60,66,69,
%T 71,71,78,80,84,85,97,97,102,102,109,109,117,120,120,126,127,127,140,
%U 140,144,144,155,161,162,165,168,168,176,176,185,188,188,188,196
%N a(n) is the average of the smallest prime greater than n and largest prime smaller than n + prime(n).
%H Harvey P. Dale, <a href="/A155215/b155215.txt">Table of n, a(n) for n = 1..1000</a>
%e a(32)= 97. Smallest prime greater than 32 is 37 and p(32)=131, largest prime smaller than 32+p(32) or 163 is 157. So (37+157)/2 = 97
%t Table[(NextPrime[n]+NextPrime[n+Prime[n],-1])/2,{n,100}] (* _Harvey P. Dale_, Apr 17 2013 *)
%K nonn
%O 1,1
%A Avik Roy (avik_3.1416(AT)yahoo.co.in), Jan 22 2009
%E Corrected by _Harvey P. Dale_, Apr 16 2013
|
