|
| |
|
|
A122821
|
|
Number of ways n can be represented as the arithmetic mean of consecutive primes.
|
|
5
| |
|
|
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
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,5
|
|
|
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}] (*Chandler*)
|
|
|
CROSSREFS
| Cf. A050221, A050237, A060863, A060864, A082370.
Sequence in context: A070821 A165890 A051632 * A054009 A176451 A091297
Adjacent sequences: A122818 A122819 A122820 * A122822 A122823 A122824
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Ray Chandler (rayjchandler(AT)sbcglobal.net), Sep 28 2006
|
| |
|
|
