|
| |
|
|
A190719
|
|
Numbers that are congruent to {0, 1, 3, 5, 7, 8, 11} mod 12.
|
|
0
|
|
|
|
0, 1, 3, 5, 7, 8, 11, 12, 13, 15, 17, 19, 20, 23, 24, 25, 27, 29, 31, 32, 35, 36, 37, 39, 41, 43, 44, 47, 48, 49, 51, 53, 55, 56, 59, 60, 61, 63, 65, 67, 68, 71, 72, 73, 75, 77, 79, 80, 83, 84, 85, 87, 89, 91, 92, 95, 96, 97, 99, 101, 103, 104, 107, 108, 109, 111
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,3
|
|
|
COMMENTS
|
The key-numbers of the pitches of a minor neapolitan scale on a standard chromatic keyboard, with root = 0.
This sequence contains all odd primes. [Jonathan Vos Post, June 9, 2011]
|
|
|
LINKS
|
Table of n, a(n) for n=1..66.
Wikipedia, Neapolitan scale
Index to sequences with linear recurrences with constant coefficients, signature (1,0,0,0,0,0,1,-1).
|
|
|
FORMULA
|
a(n) = a(n-1) +a(n-7) -a(n-8).
G.f. x^2*(1+2*x+2*x^2+2*x^3+x^4+3*x^5+x^6) / ( (x^6+x^5+x^4+x^3+x^2+x+1)*(x-1)^2 ). - R. J. Mathar, Jun 11 2011
a(n)= floor(12*n/7)-floor((n mod 7)/6)-floor(((n+3) mod 7)/5). - Rolf Pleisch, June 12 2011
|
|
|
MATHEMATICA
|
Select[Range[0, 120], MemberQ[{0, 1, 3, 5, 7, 8, 11}, Mod[#, 12]]&] (* From Harvey P. Dale, June 10 2011 *)
|
|
|
CROSSREFS
|
Cf. A190785.
Sequence in context: A024977 A088759 A195439 * A187224 A106252 A184415
Adjacent sequences: A190716 A190717 A190718 * A190720 A190721 A190722
|
|
|
KEYWORD
|
nonn,easy
|
|
|
AUTHOR
|
Roberto Bertocco, May 29 2011
|
|
|
STATUS
|
approved
|
| |
|
|
