%I A050248
%S A050248 2,38,110,3066,60020,740282,2340038,29380602,957565746
%N A050248 Integer averages of first n primes for some n.
%H A050248 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               PrimeSums.html">Link to a section of The World of Mathematics.</a>
%e A050248 38 is average of first n=23 primes; 110 (n=53); 3066 (n=853); 60020(n=11869).
%t A050248 a=0;lst={};Do[p=Prime[n];a+=p;If[a/n==IntegerPart[a/n],AppendTo[lst,a/
               n]],{n,10!}];lst [From Vladimir Orlovsky (4vladimir(AT)gmail.com), 
               Aug 05 2009]
%Y A050248 a(n) = A050247/A045345.
%Y A050248 Sequence in context: A163792 A050899 A068401 this_sequence A075459 A105645 
               A098456
%Y A050248 Adjacent sequences: A050245 A050246 A050247 this_sequence A050249 A050250 
               A050251
%K A050248 nonn,more
%O A050248 1,1
%A A050248 Eric Weisstein (eric(AT)weisstein.com)
%E A050248 Edited by N. J. A. Sloane (njas(AT)research.att.com) at the suggestion 
               of David W. Wilson, Jun 23 2007