%I #14 Feb 16 2024 10:04:47
%S 37,151,173,487,1153,2621,4357,4451,5189,5209,5431,6131,7499,8429,
%T 8641,9323,10093,10321,10883,10949,11117,11213,11369,11821,12583,
%U 16001,16741,18169,18289,22067,23761,25747,29989,33589,36691,39671,39749,39779
%N Balanced primes of order eight.
%H Muniru A Asiru, <a href="/A096700/b096700.txt">Table of n, a(n) for n = 1..10000</a>
%e 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 Select[Partition[Prime[Range[5000]],17,1],Mean[#]==#[[9]]&][[;;,9]] (* _Harvey P. Dale_, Jul 06 2023 *)
%o (GAP) P:=Filtered([1..50000],IsPrime);;
%o 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 Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096701, A096702, A096703, A096704.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jun 26 2004
%E Incorrect previous Mathematica program deleted by _Harvey P. Dale_, Jul 06 2023
|