OFFSET
1,1
COMMENTS
The scale is equal-tempered ("Wohltemperiert"), introduced by Johann Sebastian Bach.
Subsequence of A101286, obtained by removal of the 5 black keys' frequencies in each block of 12 keys. - R. J. Mathar, Mar 12 2008
LINKS
T. Yahaya Abdullah, Music Scales, part of Synthesizers, Music and Television.
Wikipedia, Equal temperament
Wikipedia, Aeolian scale
FORMULA
From David Wasserman, Mar 17 2008: (Start)
a(7n) = round(55*2^(n-1/6));
a(7n+1) = 55*2^n;
a(7n+2) = round(55*2^(n+1/6));
a(7n+3) = round(55*2^(n+1/4));
a(7n+4) = round(55*2^(n+5/12));
a(7n+5) = round(110*2^(n-5/12));
a(7n+6) = round(110*2^(n-1/3)). (End)
a(n) = round(55*2^(int(3*(4*k-1)/7-1)/12)). - Federico Provvedi, Feb 14 2014
MAPLE
A101286x := proc(n) 55*2.0^((n-1)/12.0) ; end: A101285x := proc(n) if n >= 8 then 2*A101285x(n-7) ; else A101286x(op(n, [1, 3, 4, 6, 8, 9, 11])) ; fi ; end: A101285 := proc(n) round(A101285x(n)) ; end: seq(A101285(n), n=1..80) ; # R. J. Mathar, Mar 12 2008
MATHEMATICA
Table[Round[55*2^((Floor[3(4k-1)/7]-1)/12)], {k, 1, 49}] (* Federico Provvedi, Feb 14 2014 *)
PROG
(PARI) forstep(i = 0, 100, [2, 1, 2, 2, 1, 2, 2], print(round(55*2^(i/12)))) \\ David Wasserman, Mar 17 2008
CROSSREFS
KEYWORD
nonn
AUTHOR
Angela Johansson (angvi798(AT)student.liu.se), Dec 20 2004
EXTENSIONS
More terms from Jonathan R. Love (japanada11(AT)yahoo.ca) and R. J. Mathar, Mar 08 2007
STATUS
approved