|
%I
%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.
%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 Transpose[ Select[ Partition[ Prime[ Range[5000]], 15, 1], #[[8]] == (#[[1]] + #[[2]] + #[[3]] + #[[4]] + #[[5]] + #[[6]] + #[[7]] + #[[9]] + #[[10]] + #[[11]] + #[[12]] + #[[13]] + #[[14]] + #[[15]])/14 &]][[8]]
%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
|
