|
| |
|
|
A117499
|
|
Number of subsets of {n-1, n, n+1} that sum up to a prime.
|
|
1
| |
|
|
4, 4, 4, 3, 2, 4, 2, 2, 2, 2, 2, 3, 1, 2, 2, 2, 1, 3, 2, 2, 2, 2, 2, 2, 0, 1, 1, 1, 2, 4, 2, 1, 1, 1, 1, 3, 2, 1, 1, 2, 2, 3, 1, 2, 1, 1, 1, 2, 1, 1, 2, 2, 2, 3, 1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 2, 1, 0, 2, 2, 1, 1, 2, 2, 2, 0, 1, 1, 1, 2, 3, 1, 0, 0, 0, 1, 3, 2, 2, 2, 2, 1, 2, 1, 1, 1
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| 0 <= a(n) <= 4; a(A066388(n)) = 4.
|
|
|
FORMULA
| a(n) = A010051(n-1) + A010051(n) + A010051(n+1) + A010051(2*n-1) + A010051(2*n) + A010051(2*n+1).
|
|
|
EXAMPLE
| a(1) = #{2, 0+2=2, 1+2=3, 0+1+2=3} = 4;
a(2) = #{2, 3, 1+2=3, 2+3=5} = 4;
a(3) = #{2, 3, 2+3=5, 3+4=7} = 4;
a(4) = #{3, 5, 3+4=7} = 3;
a(5) = #{5, 5+6=11} = 2.
|
|
|
MATHEMATICA
| Table[Length[Select[{-1+n, n, 1+n, -1+2 n, 2 n, 1+2 n, 3 n}, PrimeQ]], {n, 105}]
|
|
|
CROSSREFS
| Sequence in context: A016708 A105724 A063448 * A063570 A023977 A073259
Adjacent sequences: A117496 A117497 A117498 * A117500 A117501 A117502
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Mar 23 2006
|
| |
|
|
