登录
A278158型
a(6)=0的第n个纤维细胞组学数的素数签名的最小数。
1
1, 1, 2, 1, 2, 0, 12, 2, 6, 1, 6, 2, 24, 4, 2, 6, 60, 6, 60, 6, 6, 6, 6, 12, 6, 24, 210, 24, 30, 4, 420, 30, 30, 30, 20160, 24, 9240, 420, 12, 30, 60060, 30, 420, 30, 240, 30, 420, 210, 27720, 30, 60, 720, 420, 420, 6, 720, 2310, 30, 210, 30, 2042040, 4620, 24, 210, 7680, 60, 60060, 210, 6, 30240, 510510, 2160, 6486480, 840, 2310, 9240, 9240, 420, 60060, 210
抵消
1,3
链接
安蒂·卡图恩,n=1..550时的n,a(n)表
公式
a(n)=A046523号(A051258号(n) ),除n=6外,a(6)=0。
数学
ps[n_]:=排序[Last/@FactorInteger[n]];g[n_]:=模[{cy=系数表[Cyclotomic[n,x],x]},总计[Times@@@Thread[{Fibonacci[Range[0,Length[cy]-1]],cy}]];f[n_]:=块[{c=ps[g[n]]},lng=长度@c;次数@@(反向[Prime[Range[lng]]^c)];f[6]=0;f[1]=f[2]=f[4]=f[10]=1;数组[f,70](*罗伯特·威尔逊v2016年11月19日*)
表[Times@@MapIndexed[(Prime@First@#2)^#1&,#]&@If[Length@#==1&#[[1,1]]==1,{0},Reverse@Sort@#[[All,-1]]&@FactorInteger[
总计[Times@@@Thread[{Fibonacci[Range[0,Length@#-1]],#}]&@系数列表[Cyclotomic[n,x],x]+Boole[n==0]],{n,120}](*迈克尔·德弗利格,2016年11月21日,之后哈维·P·戴尔A051258号*)
黄体脂酮素
(PARI)
A051258号(n) =my(P=polcyclo(n));总和(i=1,极度(P),极坐标(P,i)*斐波那契(i));\\发件人查尔斯·格里特豪斯四世2013年1月5日
A046523号(n) =我的(f=vecsort(因子(n)[,2],4),p);prod(i=1,#f,(p=nextprime(p+1))^f[i])\\From查尔斯·格里特豪斯四世2011年8月17日
A278158型(n) =如果(6==n,0,A046523号(A051258号(n) );
对于(n=1550,写入(“b278158.txt”,n,“”,A278158型(n) );
(方案)(定义(A278158型n) (让(k(A051258号n) )(如果(0?k)k(A046523号k) ))
关键词
非n
作者
安蒂·卡图恩2016年11月18日
状态
经核准的