A096700 Balanced primes of order eight.

37, 151, 173, 487, 1153, 2621, 4357, 4451, 5189, 5209, 5431, 6131, 7499, 8429, 8641, 9323, 10093, 10321, 10883, 10949, 11117, 11213, 11369, 11821, 12583, 16001, 16741, 18169, 18289, 22067, 23761, 25747, 29989, 33589, 36691, 39671, 39749, 39779

Offset: 1

Author

Robert G. Wilson v, Jun 26 2004

Keywords

• nonn

Examples

			37 is a member because 37 = (7 + 11 + 13 + 17 + 19 + 23 + 29 + 31 + 37 + 41 + 43 + 47 + 53 + 59 + 61 + 67 + 71)/17.
		

Links

• Muniru A Asiru, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A096693, A006562, A082077, A082078, A082079, A096697, A096698, A096699, A096701, A096702, A096703, A096704.

Programs

GAP

P:=Filtered([1..50000],IsPrime);;
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

Mathematica

Select[Partition[Prime[Range[5000]],17,1],Mean[#]==#[[9]]&][[;;,9]] (* Harvey P. Dale, Jul 06 2023 *)

Extensions

Incorrect previous Mathematica program deleted by Harvey P. Dale, Jul 06 2023