A122821 Number of ways n can be represented as the arithmetic mean of consecutive primes.

0, 1, 1, 1, 2, 1, 1, 0, 2, 0, 1, 3, 1, 0, 3, 0, 2, 2, 1, 0, 1, 2, 2, 0, 0, 2, 0, 0, 2, 5, 2, 0, 0, 3, 0, 0, 2, 4, 2, 0, 1, 3, 2, 0, 1, 1, 2, 0, 2, 1, 5, 1, 4, 0, 2, 2, 0, 0, 1, 3, 1, 0, 0, 2, 0, 0, 1, 1, 4, 1, 2, 1, 1, 0, 0, 1, 1, 3, 2, 0, 2, 2, 1, 0, 0, 1, 5, 0, 3, 0, 1, 1, 1, 0, 2, 2, 2, 0, 1, 1, 3, 3, 1, 0, 4

Offset

1,5

Links

Table of n, a(n) for n=1..105.

Mathematica

f[n_]:=Block[{i=1, j, c=0, m}, While[Prime[i]<=n, j=1; While[m=Sum[Prime[k], {k, i, i+j-1}]/j; If[m==n, c++ ]; m<n, j++ ]; i++ ]; c]; Table[f[n], {n, 120}]

Crossrefs

Cf. A050221, A050237, A060863, A060864, A082370.

Sequence in context: A165890 A051632 A278700 * A054009 A339210 A176451

Adjacent sequences: A122818 A122819 A122820 * A122822 A122823 A122824

Keyword

nonn

Author

Ray Chandler, Sep 28 2006

Status

approved