# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a096700
Showing 1-1 of 1

%I A096700 #14 Feb 16 2024 10:04:47
%S A096700 37,151,173,487,1153,2621,4357,4451,5189,5209,5431,6131,7499,8429,
%T A096700 8641,9323,10093,10321,10883,10949,11117,11213,11369,11821,12583,
%U A096700 16001,16741,18169,18289,22067,23761,25747,29989,33589,36691,39671,39749,39779
%N A096700 Balanced primes of order eight.
%H A096700 Muniru A Asiru, <a href="/A096700/b096700.txt">Table of n, a(n) for n = 1..10000</a>
%e A096700 37 is a member because 37 = (7 + 11 + 13 + 17 + 19 + 23 + 29 + 31 + 37 + 41 + 43 + 47 + 53 + 59 + 61 + 67 + 71)/17.
%t A096700 Select[Partition[Prime[Range[5000]],17,1],Mean[#]==#[[9]]&][[;;,9]] (* _Harvey P. Dale_, Jul 06 2023 *)
%o A096700 (GAP) P:=Filtered([1..50000],IsPrime);;
%o A096700 a:=List(Filtered(List([0..5000],k->List([1..17],j->P[j+k])),i->Sum(i)/17=i[9]),m->m[9]); # _Muniru A Asiru_, Mar 03 2018
%Y A096700 Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096701, A096702, A096703, A096704.
%K A096700 nonn
%O A096700 1,1
%A A096700 _Robert G. Wilson v_, Jun 26 2004
%E A096700 Incorrect previous Mathematica program deleted by _Harvey P. Dale_, Jul 06 2023

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE