%I#23 2022年9月8日08:45:10
%S 0,3,7,12,15,19,24,27,31,36,39,43,48,51,55,60,63,67,72,75,79,84,87,91,
%电话96,99103108111115120123127132139144147151156159,
%U 163168171175180183187192195199204207211216219
%与{0,3,7}模12同余的N个数。
%C键——标准半音键盘上一个小调普通和弦的音高数,根=0。
%H<a href=“/index/Rec#order_04”>具有常系数的线性递归索引条目,签名(1,0,1,-1)。
%传真:x^2*(3+4*x+5*x^2)/(1+x+x^2,*(1-x)^2).-_R.J.Mathar,2011年10月8日
%F From _Wesley Ivan Hurt_,2016年6月14日:(开始)
%对于n>4,F a(n)=a(n-1)+a(n-3)-a(n-4)。
%F a(n)=(12*n-14-cos(2*n*Pi/3)+sqrt(3)*sin(2*n*Pi/3))/3。
%F a(3k)=12k-5,a(3k-1)=12k-9,a(3G-2)=12k-12。(结束)
%当n>3时,F a(n)=a(n-3)+12_2018年9月22日,宋嘉宁
%p A083031:=n->(12*n-14-cos(2*n*Pi/3)+sqrt(3)*sin(2*n*Pi/3_Wesley Ivan Hurt_,2016年6月14日
%t选择[Range[0,400],MemberQ[{0,3,7},Mod[#,12]&](*_Wesley Ivan Hurt_,2016年6月14日*)
%t线性递归[{1,0,1,-1},{0,3,7,12},100](*_宋嘉宁,2018年9月22日*)
%o(岩浆)[0..300]|n mod 12 in[0,3,7]];//_Wesley Ivan Hurt_,2016年6月14日
%o(PARI)x='x+o('x^99);concat(0,Vec(x^2*(3+4*x+5*x^2)/((1+x+x^2
%Y与模式和和弦相关的一些序列指南:
%Y模式:
%Y Lydian模式(F):A083089
%Y爱奥尼亚模式(C):A083026
%Y Mixolydian模式(G):A083120
%Y多里安模式(D):A083033
%Y风成模式(A):A060107(第七升高:A083028)
%Y Phrygian模式(E):A083034
%Y Locrian模式(B):A082977
%Y弦:
%Y大弦:A083030
%Y小调和弦:此序列
%Y主七和弦:A083032
%K nonn,简单
%O 1,2号机组
%詹姆斯·英格拉姆(j.instrum(AT)t-online.de),2003年6月1日
|