登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A265894型 a(n)=A099563号(A001813号(n) );(2n)!/的阶乘基表示中的最高有效数字不!。 7

%I#15 2015年12月25日21:04:03

%S 1,1,2,1,2,6,1,4,1,2,7,1,3,10,1,3,1,3,11,3,10,3,8,25,2,6,19,1,4,13,38,

%T 2,7,23,1,4,13,39,2,6,20,1,3,9,29,1,4,13,40,1,5,16,51,2,60,62,7,

%U 23,70,2,8,25,77,2,8,15,79,2,82,25,78,2,7,23,73,2,6,21,66,16,18,57,1,4,15,47,13,12,38118,3,9

%N a(N)=A099563(A001813(N));(2n)!/的阶乘基表示中的最高有效数字不!。

%H Antti Karttunen,n的表,n=0..10080的a(n)</a>

%H<a href=“/index/Fa#facbase”>与阶乘基表示相关的序列的索引项</a>

%F a(n)=A099563(A001813(n))。

%F a(n)=A265890(n+1,n)。

%e术语A001813(0)。。阶乘基表示(A007623)中的A001813(8)如下所示:

%e 1、10、200、10000、220000、6000000、174000000、476000000、110000000000。。。

%e取每一个的第一位数字(实际上是占位符值),得出a(0)。。该序列的a(8):1,1,2,1,2,6,1,4,1。。。

%t factBaseIntDs[n_]:=模块[{m,i,len,dList,currDigit},i=1;而[n>i!,i++];m=n;len=i;dList=表[0,{len}];执行[currDigit=0;当[m>=j!,m=m-j!;currDi吉t++];dList[[len-j+1]]=当前数字,{j,i,1,-1}];如果[dList[[1]]==0,dList=Drop[dList,1]];d列表];(*摘自A007623,Alonso del Arte,2006年5月3日*)f[n_]:=factBaseIntDs[(2 n)!/n!][1];数组[f,96,0](*_Robert G.Wilson v_,2015年12月25日*)

%o(PARI)

%o分配(2^31);\\够了吗?

%o A099563(n)={my(i=2,dig=0);直到(0==n,dig=n%i;n=(n-dig)/i;i++);返回(dig);};

%o A265894=n->A099563((2*n)!/n!);

%o表示(n=0,10080,写入(“b265894.txt”,n,“”,A265894(n));

%o(方案,两种变体)

%o(定义(A265894 n)(A099563(A001813 n))

%o(定义(A265894 n)(A26589 0bi(+1 n)n));;A265890中给出了A265890bi的代码。

%Y A265890的次主对角线。

%Y参考A001813、A099563。

%Y参见A265898(1的位置)、A265899(下降)、A266120(下降前的局部最大值)。

%Y另见A265891。

%K nonn,基础,看

%0、3

%2015年12月24日,安提·卡图内

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日10:31。包含371240个序列。(在oeis4上运行。)