显示找到的3个结果中的1-3个。
第页1
0, 1, 0, 1, 0, 2, 0, 0, 0, 1, 0, 2, 0, 0, 0, 2, 0, 4, 0, 0, 0, 3, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 2, 0, 0, 0, 2, 0, 4, 0, 0, 0, 3, 0, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 4, 0, 0, 0, 4, 0, 8, 0, 0, 0, 6, 0, 12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 3, 0, 6, 0, 0, 0, 6, 0, 12, 0, 0, 0, 9, 0, 18
数学
(*有关IntegerDigits的阶乘基版本的定义,请参阅A007623号*)表[Times@@factBaseIntDs[n],{n,0,99}](*阿隆索·德尔·阿特2012年2月28日*)
黄体脂酮素
(PARI)a(n)=我的(k=1,s=1);而(n,s*=n%k++;n \=k);秒
(Python)
从运算符导入mul
定义A(n,p=2):
如果n<p其他A(n//p,p+1)*10+n%p,则返回n
定义a(n):
x=str(A(n-1))
如果xelse中的reduce为“0”,则返回0(mul,[int(i)代表x]中的i)
0, 0, 1, 1, 1, 2, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 1, 1, 1, 2, 1, 2
评论
Diamond和Reidpath证明了当n>0时,a(2n)=1,当n包含偶数但其阶乘基表示中没有0时,则a(n)=2。如果a(n)>2,则3|n。
进一步的模性质可以很容易地证明。例如,a(n)>2表示n是33、45、81或93 mod 120。
黄体脂酮素
(PARI)pr(n)=我的(k=1,s=1);而(n,s*=n%k++;n \=k);秒
a(n)=我的(t);而(n>1,t++;n=pr(n));吨
1, 5, 21, 17, 633, 23, 36153, 65, 93, 635, 443122713, 71, 81474226713, 36155, 645, 113, 6069010670156313, 95, 2318037293294156313, 641, 36165, 443122715, 595774037991797891660313, 119, 4233, 81474226715, 453, 36161, 256727294482662730300616548940313, 647
评论
所有术语都很奇怪。
每个质数都会创造一个新的记录。
a(p)=p*(p!)+和{k=1..p-1}k!对于任何素数p。
例子
序列的第一项是:
+----+-------------+----------------------------+
|阶乘基中的n/a(n)a(n)|
+----+-------------+----------------------------+
| 1 | 1 | 1 |
| 2 | 5 | 2_1 |
| 3 | 21 | 3_1_1 |
| 4 | 17 | 2_2_1 |
| 5 | 633 | 5_1_1_1_1 |
| 6 | 23 | 3_2_1 |
| 7 | 36153 | 7_1_1_1_1_1_1 |
| 8 | 65 | 2_2_2_1 |
| 9 | 93 | 3_3_1_1 |
| 10 | 635 | 5_1_1_2_1 |
| 11 | 443122713 | 11_1_1_1_1_1_1_1_1_1_1 |
| 12 | 71 | 2_3_2_1 |
| 13 | 81474226713 | 13_1_1_1_1_1_1_1_1_1_1_1_1 |
| 14 | 36155 | 7_1_1_1_1_2_1 |
| 15 | 645 | 5_1_3_1_1 |
| 16 | 113 | 4_2_2_1 |
+----+-------------+----------------------------+
数学
f[n_]:=块[{d=除数@n,g,k,m={1}},g[x_]:=Flatten[表[#1,{2}]&@@@FactorInteger@x];Do[k=Max@选择[d,#<=i&];如果[!IntegerQ@k,AppendTo[m,1],d=除数[Last[d]/k];附加到[m,k]];如果[d=={1},Break[],{i,2,n}];反向@m];表[起始数字[#,混合基数[Reverse@Range[2,Length@#]]&@f@n,{n,30}](*迈克尔·德弗利格,2015年10月12日,10.2*版)
搜索在0.005秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日15:13。包含376087个序列。(在oeis4上运行。)
|