%I #7 Nov 21 2013 12:47:51
%S 2,3,5,7,1,2,4,5,3,6,2,5,3,4,6,4,7,4,7,4,5,8,6,9,8,1,1,3,3,2,3,2,4,4,
%T 5,2,4,3,5,4,6,3,4,4,6,6,1,2,4,4,3,5,2,3,5,4,6,3,5,4,4,5,3,2,2,4,2,4,
%U 5,5,4,6,5,4,6,5,7,6,2,4,5,2,3,3,5,4,6,5,4,4,6,7,6,5,7,3,5,3,3,3,5,6,5,7,4,6,7,6,8,2,4,3,5,5,3,4,4,6,5,7
%N Average digit (rounded to the nearest integer) in the decimal expansion of n-th prime.
%F a(n)=round(A007605(n)/A097944(n)). - _R. J. Mathar_, Sep 23 2008
%e For the prime 107 we have nearest((1+0+7)/3)=nearest(8/3)=3.
%t Floor[Mean[IntegerDigits[#]]+1/2]&/@Prime[Range[120]] (* _Harvey P. Dale_, Nov 22 2011 *)
%Y Cf. A000040, A074462.
%K easy,nonn,base
%O 1,1
%A Y. Kelly Itakura (yitkr(AT)mta.ca), Aug 23 2002
%E Changed offset to 1, added Cf. to A074462 and extended. - _R. J. Mathar_, Sep 23 2008
|