Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #30 Apr 24 2023 12:30:32
%S 30,34,51,78,87,106,132,165,180,203,225,231,248,253,305,312,375,381,
%T 488,502,510,588,633,690,727,734,754,761,988,1038,1070,1089,1110,1140,
%U 1183,1218,1299,1336,1368,1408,1416,1431,1437,1449,1466,1504,1525,1600,1632
%N Integer arithmetic means of 10 consecutive primes.
%C It is obvious that the terms occur in increasing order, since the mean increases by (prime(n)-prime(n-10))/10 when going to the 10 primes which include prime(n) as largest term. However, differences of 6, as e.g. between the terms a(n)=9813497 and a(n+1)=9813503 (= average of prime(653096) through prime(653105)), seem to occur infinitely often. Is this true, and is this the smallest such step? - _M. F. Hasler_, Oct 21 2012
%C Also difference 5 seems to occur infinitely often. For first 200000 differences, values 5..10 occur 5, 57, 123, 400, 1755, 1439 times. Apparently all differences >4 occur infinitely often. - _Zak Seidov_, May 22 2015
%H Zak Seidov, <a href="/A218114/b218114.txt">Table of n, a(n) for n = 1..1000</a>
%e a(1) is derived from (prime(6)+...+prime(15))/10 = (13+ 17+ 19+ 23+ 29+ 31+ 37+ 41+ 43+ 47)/10=30.
%p Psums:= ListTools:-PartialSums(select(isprime,[2,(2*i+1 $ i=1..10^4)])):
%p select(type, (Psums[11..-1] - Psums[1..-11])/10, integer); # _Robert Israel_, May 22 2015
%t Select[Total /@ Partition[Prime@ Range@ 263, 10, 1]/10, IntegerQ] (* _Michael De Vlieger_, May 22 2015 *)
%t Select[Mean/@Partition[Prime[Range[300]],10,1],IntegerQ] (* _Harvey P. Dale_, Aug 28 2021 *)
%o (PARI) lista(nn) = {for (n=1, nn, my(s = sum(k=0, 9, prime(n+k))/10); if (type(s) == "t_INT", print1(s, ", ")););} \\ _Michel Marcus_, May 23 2015
%Y Cf. A000040, A123096 (subsequence of primes), A127337.
%K nonn
%O 1,1
%A _Zak Seidov_, Oct 21 2012