OFFSET
1,1
LINKS
Muniru A Asiru, Table of n, a(n) for n = 1..6600
EXAMPLE
5297 is a member because 5297 = 5167 + 5171 + 5179 + 5189 + 5197 + 5209 + 5227 + 5231 + 5233 + 5237 + 5261 + 5273 + 5279 + 5281 + 5297 + 5303 + 5309 + 5323 + 5333 + 5347 + 5351 + 5381 + 5387 + 5393 + 5399 + 5407 + 5413 + 5417 + 5419 = 153613/29.
MATHEMATICA
Module[{bal=14, nn=16000}, Select[Partition[Prime[Range[nn]], 2bal+1, 1], Mean[#]==#[[bal+1]]&]][[;; , 15]] (* Harvey P. Dale, Jul 07 2023 *)
PROG
(GAP) P:=Filtered([1..200000], IsPrime);;
a:=List(Filtered(List([0..17000], k->List([1..29], j->P[j+k])), i->Sum(i)/29=i[15]), m->m[15]);
CROSSREFS
KEYWORD
nonn
AUTHOR
Muniru A Asiru, Mar 04 2018
STATUS
approved