OFFSET
1,1
EXAMPLE
a(1) = 12 because (5+7+11+13+17+19)/6 = 12;
a(2) = 15 because (7+11+13+17+19+23)/6 = 15.
MATHEMATICA
Select[Table[Sum[Prime[k], {k, n, n + 5}]/6, {n, 100}], IntegerQ] (* Ray Chandler, Sep 25 2006 *)
Select[Mean/@Partition[Prime[Range[200]], 6, 1], IntegerQ] (* Harvey P. Dale, Apr 01 2011 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, Sep 14 2006
EXTENSIONS
Extended by Ray Chandler, Sep 25 2006
STATUS
approved