cp's OEIS Frontend

A225804 Arithmetic mean of the first n primes, rounded up.

%I A225804 #18 Apr 03 2023 10:36:13
%S A225804 2,3,4,5,6,7,9,10,12,13,15,17,19,21,22,24,26,28,30,32,34,36,38,41,43,
%T A225804 45,47,49,52,54,56,58,61,63,66,68,70,73,75,78,80,83,85,88,90,92,95,98,
%U A225804 100,103,105,108,110,113,116,118,121,124
%N A225804 Arithmetic mean of the first n primes, rounded up.
%H A225804 K. D. Bajpai, <a href="/A225804/b225804.txt">Table of n, a(n) for n = 1..5000</a>
%H A225804 Chris K. Caldwell and G. L. Honaker,Jr.,<a href="https://t5k.org/curios/page.php?short=110"> Prime Curios! 110</a>
%F A225804 a(n) = ceiling(A007504(n) / n)
%e A225804 a(5) = ceiling( (2 + 3 + 5 + 7 + 11)/5) = ceiling(28/5) = 6.
%e A225804 a(6) = ceiling( (2 + 3 + 5 + 7 + 11 + 13)/6) = ceiling(41/6) = 7.
%e A225804 a(7) = ceiling( (2 + 3 + 5 + 7 + 11 + 13 + 17)/7) = ceiling(58/7) = 9.
%p A225804 A007504 := proc(n)
%p A225804     add(ithprime(i),i=1..n) ;
%p A225804 end proc:
%p A225804 A225804 := proc(n)
%p A225804     ceil(A007504(n)/n) ;
%p A225804 end proc: # _R. J. Mathar_, Jul 28 2013
%t A225804 Table[Ceiling[(Plus@@Prime[Range[n]])/n], {n, 75}] (* _Alonso del Arte_, Jul 28 2013 *)
%Y A225804 Cf. A007504, A060620 (rounded down).
%K A225804 nonn,easy
%O A225804 1,1
%A A225804 _K. D. Bajpai_, Jul 28 2013