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.
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
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