|
%I #23 Sep 08 2022 08:46:23
%S 0,4,7,11,12,16,19,23,24,28,31,35,36,40,43,47,48,52,55,59,60,64,67,71,
%T 72,76,79,83,84,88,91,95,96,100,103,107,108,112,115,119,120,124,127,
%U 131,132,136,139,143,144,148,151,155,156,160,163,167,168,172,175,179
%N Numbers that are congruent to {0, 4, 7, 11} mod 12.
%C Key-numbers of the pitches of a major seventh chord on a standard chromatic keyboard, with root = 0.
%H Jianing Song, <a href="/A319280/b319280.txt">Table of n, a(n) for n = 1..10000</a>
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (1,0,0,1,-1).
%F a(n) = a(n-4) + 12 for n > 4.
%F a(n) = a(n-1) + a(n-4) - a(n-5) for n > 5.
%F G.f.: x^2*(4 + 3*x + 4*x^2 + x^3)/((1 + x)*(1 + x^2)*(1 - x)^2).
%F a(n) = (6*n - 4 + (-1)^n + sqrt(2)*cos(Pi*n/2 + Pi/4))/2.
%F E.g.f.: ((6*x - 3)*cosh(x) + (6*x - 5)*sinh(x) + sqrt(2)*cos(x + Pi/4) + 2)/2.
%F Sum_{n>=2} (-1)^n/a(n) = log(3)/8 + log(2+sqrt(3))/(2*sqrt(3)) - 5*sqrt(3)*Pi/72. - _Amiram Eldar_, Dec 30 2021
%t Select[Range[0, 200], MemberQ[{0, 4, 7, 11}, Mod[#, 12]]&]
%t LinearRecurrence[{1, 0, 0, 1, -1}, {0, 4, 7, 11, 12}, 100]
%o (Magma) [n : n in [0..150] | n mod 12 in [0, 4, 7, 11]]
%o (PARI) my(x='x+O('x^99)); concat(0, Vec(x^2*(4+3*x+4*x^2+x^3)/((1+x)*(1+x^2)*(1-x)^2)))
%Y A guide for some sequences related to modes and chords:
%Y Modes:
%Y Lydian mode (F): A083089
%Y Ionian mode (C): A083026
%Y Mixolydian mode (G): A083120
%Y Dorian mode (D): A083033
%Y Aeolian mode (A): A060107 (raised seventh: A083028)
%Y Phrygian mode (E): A083034
%Y Locrian mode (B): A082977
%Y Third chords:
%Y Major chord (F,C,G): A083030
%Y Minor chord (D,A,E): A083031
%Y Diminished chord (B): A319451
%Y Seventh chords:
%Y Major seventh chord (F,C): this sequence
%Y Dominant seventh chord (G): A083032
%Y Minor seventh chord (D,A,E): A319279
%Y Half-diminished seventh chord (B): A319452
%K nonn,easy
%O 1,2
%A _Jianing Song_, Sep 16 2018
|
