OEIS哀悼西蒙斯感谢西蒙斯基金会支持包括OEIS在内的许多科学分支的研究。
登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A254524号 n是具有数字的第a(n)-个正整数。 18
1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 3, 3, 3, 3, 3, 3, 3, 3, 2, 1, 4, 4, 4, 4, 4, 4, 4, 3, 2, 1, 5, 5, 5, 5, 5, 5, 4, 3, 2, 1, 6, 6, 6, 6, 6, 5, 4, 3, 2, 1, 7, 7, 7, 7, 6, 5, 4, 3, 2, 1, 8, 8, 8, 7, 6, 5, 4, 3, 2, 1, 9, 9, 8, 7, 6, 5, 4, 3, 2, 1, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1, 3, 4, 5, 6, 7, 8, 9, 10, 11, 10, 5 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,10
评论
一个(A051885号(n) )=1-莱因哈德·祖姆凯勒2015年10月9日
的顺序变换A007953号-安蒂·卡图恩2017年5月20日
链接
大卫·A·科内斯,n=1..10000时的n,a(n)表
例子
35是第四个具有数字8的正整数(前面的其他数字是8、17和26),因此a(35)=4。
数学
c[n_,k_]:=如果[n>=k,二项式[n,k],0];b[s_,q_,n_]:=(s1=q;如果[s<=q*(n-1),s1=s+q;和[(-1)^i*c[q,i]*c[s1-1-n*i,q-1],{i,0,q-1}],0]);a[n]:=(r=1;v=整数位数[n];l=v[[-1]];对于[i=长度[v]-1,i>=1,i---,对于[j=1,j<=v[i]],j++,r+=b[l+j,长度[v]-i,10]];l+=v[i]];r);表[a[n],{n,1,110}](*Jean-François Alcover公司2016年11月14日,改编自PARI*)
使用[{nn=400},#[[3]&&@排序[展开[表[展开[#,1]&&@映射索引[列表,选择[表[{n,总计[整数位数[n]]},{n,nn}],#[[2]]=k&]],{k,nn}],1]]](*哈维·P·戴尔,2020年3月29日*)
黄体脂酮素
(PARI)
\\该算法需要修改二项式。
C(n,k)=如果(n>=k,二项式(n,k),0)
\\使用具有0到n-1边的q骰子掷s-q的方法。
b(s,q,n)=如果(s<=q*(n-1),s+=q;总和(i=0,q-1,(-1)^i*C(q,i)*C(s-1-n*i,q-1)),0)
\\主要算法
a(n)={r=1;v=数字(n);l=v[#v];对于步骤(i=#v-1,1,-1,对于(j=1,v[i],r+=b(l+j,#v-i,10));l+=v[i]]);r}
(哈斯克尔)
导入数据。IntMap(空,findWithDefault,插入)
a254524 n=a254524_列表!!(n-1)
a254524_list=f 1空,其中
f x m=y:f(x+1)(插入q(y+1)m),其中
y=findWithDefault 1 q m;q=a007953 x
--莱因哈德·祖姆凯勒2015年10月9日
交叉参考
囊性纤维变性。A286478型(阶乘基的类似序列)。
关键词
非n基础美好的
作者
大卫·A·科内斯2015年1月31日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年5月23日18:59。包含372765个序列。(在oeis4上运行。)