这个网站是由捐款支持的OEIS基金会.

用户:Jean François Alcover

来自OeisWiki
跳转到:航行,搜索

退休工程师,1947年出生,母校:巴黎中央经济学院,1970年。

姓名:Jean François Alcover

地点:法国巴黎

电子邮件:单击此处

Jfba.jpg公司


用于自动序列的Mathematica脚本

firstKindQ[T_列表]:=

模块[{ta,tb},

tb=表[Sum[(-1)^(n-k)*二项式[n,k]*部分[T,k+1],

{k,0,长度[T]-1}],{n,0,长度[T]-1}];

ta=表[(-1)^(n+1)部分[T,n+1],{n,0,长度[T]-1}];

第一个[T]==0&&ta==tb];


第二份名单:=

模块[{ta,tb},

tb=表[Sum[(-1)^(n-k)*二项式[n,k]*部分[T,k+1],

{k,0,长度[T]-1}],{n,0,长度[T]-1}];

ta=表[(-1)^n部分[T,n+1],{n,0,长度[T]-1}];ta==tb];


到Secondkind[T_u?firstKindQ]:=

表[2部分[T,n+1]-部分[T,n],{n,1,长度[T]-1}];


对于第一类人[第二类人]:=

表[1/2^n和[2^k部分[T,k+1],{k,0,n-1}],{n,0,长度[T]}];


autosequenceQ[T_List]:=哪个[

firstKindQ[T],Print[“第一种,它的第二种伴侣是”,toSecondKind[T]];是的,

secondKindQ[T],印刷体[“第二种,它的第一种伴侣是”,toFirstKind[T];是的,

正确,打印[“不是自动序列”];错误];


例子:

autosequenceQ[Table[Fibonacci[n],{n,0,10}]]

第一种,它的第二种伴侣是{2,1,3,4,7,11,18,29,47,76}