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,1

Links

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

Example

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

Maple

P:=proc(q) local n; for n from 9 to q do
if add(ithprime(n-k), k=-8..8)=17*ithprime(n) then print(ithprime(n));
fi; od; end: P(10^6); # Paolo P. Lava, Mar 17 2014

Mathematica

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

Prog

(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

Crossrefs

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

Sequence in context: A141968 A142656 A145898 * A158596 A142688 A178835

Adjacent sequences: A096697 A096698 A096699 * A096701 A096702 A096703

Keyword

nonn

Author

Robert G. Wilson v, Jun 26 2004

Extensions

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

Status

approved