OFFSET
1,1
LINKS
Aaron Toponce, Table of n, a(n) for n = 1..1000
EXAMPLE
MATHEMATICA
Transpose[ Select[ Partition[ Prime[ Range[5000]], 11, 1], #[[6]] == (#[[1]] + #[[2]] + #[[3]] + #[[4]] + #[[5]] + #[[7]] + #[[8]] + #[[9]] + #[[10]] + #[[11]])/10 &]][[6]]
(* Second program: *)
With[{k = 5}, Select[MapIndexed[{Prime[First@ #2 + k], #1} &, Mean /@ Partition[Prime@ Range[3000], 2 k + 1, 1]], SameQ @@ # &][[All, 1]]] (* Michael De Vlieger, Feb 15 2018 *)
PROG
(GAP) P:=Filtered([1..70000], IsPrime);;
a:=List(Filtered(List([0..3000], k->List([6..16], j->P[j-5+k])), i->
Sum(i)/11=i[6]), m->m[6]); # Muniru A Asiru, Feb 14 2018
(PARI) isok(p) = {if (isprime(p), k = primepi(p); if (k > 5, sum(i=k-5, k+5, prime(i)) == 11*p; ); ); } \\ Michel Marcus, Mar 07 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jun 26 2004
STATUS
approved