|
Search: id:A050221
|
|
|
| A050221 |
|
a(n) = number of sets of consecutive primes whose arithmetic mean is A060863(n). |
|
+0
5
|
|
| 1, 1, 1, 2, 1, 1, 2, 1, 3, 1, 3, 2, 2, 1, 1, 2, 2, 2, 2, 5, 2, 3, 2, 4, 2, 1, 3, 2, 1, 1, 2, 2, 1, 5, 1, 4, 2, 2, 1, 3, 1, 2, 1, 1, 4, 1, 2, 1, 1, 1, 1, 3, 2, 2, 2, 1, 1, 5, 3, 1, 1, 1, 2, 2, 2, 1, 1, 3, 3, 1, 4, 1, 2, 2, 1, 3, 3, 1, 3, 1, 2, 1, 1, 3, 1, 1, 1, 2, 1, 3, 1, 1, 1, 2, 3, 1, 1, 2, 4, 4, 2, 4, 1, 3, 2
(list; graph; listen)
|
|
|
OFFSET
|
1,4
|
|
|
COMMENT
|
Essentially A122821 with the 0's removed.
|
|
FORMULA
|
a(n) = A122821(A060863(n)).
|
|
EXAMPLE
|
For n=4; A060863(4) = 5. the two sets are 5/1 = 5, (3+5+7)/3 = 5. so a(4)=2.
|
|
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]; Select[Table[f[n], {n, 160}], #>0&] (*Chandler*)
|
|
CROSSREFS
|
Sequence in context: A117164 A127586 A055893 this_sequence A113279 A034807 A135062
Adjacent sequences: A050218 A050219 A050220 this_sequence A050222 A050223 A050224
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Naohiro Nomoto (n_nomoto(AT)yabumi.com), May 08 2003
|
|
EXTENSIONS
|
Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net), Oct 03 2006
|
|
|
Search completed in 0.002 seconds
|
