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

 

标志
提示
(来自的问候整数序列在线百科全书!)
A052383号 没有1作为数字的数字。 29
0, 2, 3, 4, 5, 6, 7, 8, 9, 20, 22, 23, 24, 25, 26, 27, 28, 29, 30, 32, 33, 34, 35, 36, 37, 38, 39, 40, 42, 43, 44, 45, 46, 47, 48, 49, 50, 52, 53, 54, 55, 56, 57, 58, 59, 60, 62, 63, 64, 65, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 77, 78, 79, 80, 82, 83, 84, 85, 86, 87, 88, 89 (列表图表参考历史文本内部格式)
抵消
1,2
评论
对于{1,2,…,29,30,32,33,34,35,37,38,39,41,42,43}中的每个k,至少存在一个m,使得m^k小于1。如果m^k是1-,那么(10*m)^k,(100*m)m^k。。。也比1少。因此,对于这些数字k中的每一个,在这个序列中都存在无穷多的k次幂-亚辛2023年4月17日
链接
莱因哈德·祖姆凯勒(Reinhard Zumkeller),n=1..10000时的n,a(n)表
M.F.Hasler,避开特定数字的数字,OEIS Wiki,2020年1月12日。
配方奶粉
a(1)=1,a(n+1)=f(a(n)+1,a(n-莱因哈德·祖姆凯勒2008年3月2日
a(n)是在n-1的9进制表示中,用d+1替换所有非零数字d-莱因哈德·祖姆凯勒2014年10月7日
和{k>1}1/a(k)=A082830号=16.176969…(凯姆普纳系列)-伯纳德·肖特2020年1月12日
MAPLE公司
M: =3:#以获取最多为M位数的所有术语
B: ={$2..9}:A:=B联合{0}:
对于从1到m的m do
B: =映射(B->seq(10*B+j,j={0,$2.9}),B);
A: =接头B;
日期:
排序(转换(A,列表))#罗伯特·伊斯雷尔2016年1月11日
#第二个程序:
A052383号:=进程(n)
选项记忆;
如果n=1,则
0;
其他的
对于来自procname(n-1)+1 do的a
如果nops(convert(converter(a,base,10),set)与{1})相交=0,则
返回a;
结束条件:;
结束do:
结束条件:;
结束进程:#R.J.马塔尔2016年7月31日
#第三个Maple项目:
a: =proc(n)局部l,m;l、 m:=0,n-1;
而m>0做l:=(d->
`如果`(d=0,0,d+1))(irem(m,9,'m')),l
od;解析(cat(l))/10
结束时间:
seq(a(n),n=1..100)#阿洛伊斯·海因茨2016年8月1日
数学
ban1Q[n_]:=FreeQ[IntegerDigits[n],1]=真;选择[Range[0,89],ban1Q[#]&](*贾扬达·巴苏2013年5月17日*)
选择[Range[0,99],DigitCount[#,10,1]==0&](*阿隆索·德尔·阿特2020年1月12日*)
黄体脂酮素
(岩浆)[0..89][n:n不是Intseq(n)]中的1//布鲁诺·贝塞利2011年5月28日
(sh)seq 0 1000 | grep-v 1#乔格·阿恩特2011年5月29日
(PARI)a(n)=我的(v=数字(n,9));对于(i=1,#v,如果(v[i],v[i]++));subst(Pol(v),'x,10)\\查尔斯·格里特豪斯四世2012年10月4日
(平价)
应用({A052383号(n) =fromdigits(apply(d->d+!!d,digits)(n-1,9))},[1..99])\\定义函数并为索引1..99计算它(检查并举例说明)
选择({是_A052383号(n) =!setsearch(Set(digits(n)),1)},[0..99])\\定义特征函数is_A;如图所示,选择[0..99]中的术语
下一个_A052383号(n,d=数字(n+=1))={对于(i=1,#d,d[i]==1&&return((1+n\d=10^(#d-i))*d));n}\\后继函数:有效地跳到下一个a(k)>n。用于A038603型. -M.F.哈斯勒2020年1月11日
(哈斯克尔)
a052383=英尺。减去1,其中
f 0=0
f v=10*f w+如果r>0,则r+1,否则为0,其中(w,r)=divMod v 9
--莱因哈德·祖姆凯勒2014年10月7日
(Scala)(0到99).filter(_.toString.indexOf('1')==-1)//阿隆索·德尔·阿特2020年1月12日
(Python)
来自itertools导入计数、islice、product
定义A052383号():#术语生成器
产量0
对于计数(1)中的数字:
对于“23456789”中的f:
对于产品中的r(“023456789”,重复=数字-1):
yield int(f+“”.join(r))
打印(列表(islice(A052383号(), 72))) #迈克尔·布拉尼基2023年10月15日
交叉参考
囊性纤维变性。A004176号,A004720型,A011531号(补语),A038603型(素数子集),A082830号(坎普纳系列),A248518型,A248519型.
囊性纤维变性。A052382号(没有0),A052404号(无2),A052405号(无3),A052406号(没有4个),A052413号(无5),A052414号(无6),A052419号(无7),A052421号(没有8个),A007095号(没有9)。
关键词
基础,容易的,非n
作者
亨利·博托姆利2000年3月13日
扩展
偏移更改者莱因哈德·祖姆凯勒2014年10月7日
状态
经核准的

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

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

上次修改时间:美国东部夏令时2024年4月19日19:02。包含371798个序列。(在oeis4上运行。)