A073342 Average digit (rounded to the nearest integer) in the decimal expansion of n-th prime.
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, 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, 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
Offset: 1
Examples
For the prime 107 we have nearest((1+0+7)/3)=nearest(8/3)=3.
Programs
-
Mathematica
Floor[Mean[IntegerDigits[#]]+1/2]&/@Prime[Range[120]] (* Harvey P. Dale, Nov 22 2011 *)
Formula
Extensions
Changed offset to 1, added Cf. to A074462 and extended. - R. J. Mathar, Sep 23 2008