|
|
A081031
|
|
Positions of white keys on piano keyboard, starting with A0 = the 1st key.
|
|
4
|
|
|
1, 3, 4, 6, 8, 9, 11, 13, 15, 16, 18, 20, 21, 23, 25, 27, 28, 30, 32, 33, 35, 37, 39, 40, 42, 44, 45, 47, 49, 51, 52, 54, 56, 57, 59, 61, 63, 64, 66, 68, 69, 71, 73, 75, 76, 78, 80, 81, 83, 85, 87, 88
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
a(n) = floor((12n-3)/7).
a(n) = a(n-1) + a(n-7) - a(n-8) for n > 8.
G.f. for a keyboard with infinite number of keys: x*(x^7 + 2*x^6 + x^5 + 2*x^4 + 2*x^3 + x^2 + 2*x + 1)/(x^8 - x^7 - x + 1). (End)
|
|
EXAMPLE
|
First, 3rd, 4th, 6th, etc. keys of piano keyboard are white.
|
|
MATHEMATICA
|
Join[{1, 3}, Flatten[Table[12n+{4, 6, 8, 9, 11, 13, 15}, {n, 0, 6}]], {88}] (* Harvey P. Dale, Mar 15 2013 *)
LinearRecurrence[{1, 0, 0, 0, 0, 0, 1, -1}, {1, 3, 4, 6, 8, 9, 11, 13}, 52] (* Harvey P. Dale, May 14 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
fini,full,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|