登录
基于素数根乘积的三角形序列,使用原始函数:f(n)=原始函数(n);p(x,n)=如果[n==0,1,f(n)*(x+1/f(n)))*积[x+素数[i],{i,1,n-1}]];t(n,m)=系数(p(x,n))。
0

%I#4 2019年7月10日21:23:44

%S 1,1,2,5,2,6,41,31,61,6,30931940301,302104434751971212273571,

%电话:210231053390276762728313726866530864681231030030901841261,

%电话:121206141161805253215321371219579601123130030510510

%N基于素根积的三角形序列,使用初等函数:f(N)=初等函数(N);p(x,n)=如果[n==0,1,f(n)*(x+1/f(n)))*积[x+素数[i],{i,1,n-1}]];t(n,m)=系数(p(x,n))。

%C行总和为:

%丙{1,2,9,84,2232,121536,15973632,2906039808,889220312064,337903091527680,186522488129617920}。

%F F(n)=初等(n);p(x,n)=如果[n==0,1,f(n)*(x+1/f(n)))*积[x+素数[i],{i,1,n-1}]];t(n,m)=系数(p(x,n))。

%e{1},

%e{1,1},

%e{2,5,2},

%e{6,41,31,6},

%电子{3093194030130},

%电子邮箱{210、44347、51971、21227、3571、210},

%电子邮箱{2310,5339027,6762728,3137268,665308,64681,2310},

%电子邮箱{30030、901841261、1212061411、618052532、153213712、19579601、1231231、30030},

%电子邮箱:{51051026062117626736561080540819922050869554785396836863116209686780482609581510510},

%电子邮箱{9699690、94084000213783、136937156748959、78865165215633、23562710455719、4023906738627、405611938181、23773940267、746876131、9699690},

%电子邮箱:{223092870、49770428979243299、74603683500398660、44869225596233918、142785723678410、26705889749140、307118568654990、21905488909522、941898097240、2230928001、223082870}

%t清除[a,p,n]a[0]=1;a[n_]:=a[n]=素数[n]*a[n-1];aa=表[a[n],{n,0,20}];p[x_,n_]=如果[n==0,1,aa[[n]]*(x+1/aa[[n]])*乘积[x+素数[i],{i,1,n-1}]];表[FullSimplify[ExpandAll[p[x,n]]],{n,0,10}];表[系数列表[FullSimplify[ExpandAll[p[x,n]],x],{n,0,10}];压扁[%]

%K nonn,未编辑

%O 1,4型

%A _Roger L.Bagula和_ Gary W.Adamson,2008年9月21日