login
A096700
Balanced primes of order eight.
17
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
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.
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
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