显示找到的11个结果中的1-10个。
对n进行编号,使n的所有除数在其二进制展开式中具有奇数1。
+10 11
1, 2, 4, 7, 8, 11, 13, 14, 16, 19, 22, 26, 28, 31, 32, 37, 38, 41, 44, 47, 49, 52, 56, 59, 61, 62, 64, 67, 73, 74, 76, 79, 82, 88, 91, 94, 97, 98, 103, 104, 107, 109, 112, 118, 121, 122, 124, 127, 128, 131, 133, 134, 137, 143, 146, 148, 151, 152, 157, 158, 164, 167, 173
例子
14在序列中是因为它的除数是[1,2,7,14],而在二进制中:1,10,111和1110,都有奇数1。
MAPLE公司
isA001969:=进程(n)
如果wt(n)mod 2=0,则
真;
其他的
假;
结束条件:;
结束进程:
isA093696:=进程(n)
对于numtheory中的d[除数](n)do
如果是A001969(d),则
返回false;
结束条件:;
结束do;
真;
结束进程:
对于从1到200 do的n
如果是A093696(n),则
printf(“%d,”,n);
结束条件:;
数学
odiousQ[n_]:=奇数Q@DigitCount[n,2][[1];选择[Range[200],AllTrue[Divisors[#],odiousQ]&](*阿米拉姆·埃尔达尔2019年12月9日*)
黄体脂酮素
(PARI)是(n)=fordiv(n,d,if(hammingweight(d)%2==0,return(0));1 \\查尔斯·格里特豪斯四世,2013年3月29日
(Python)
从辛导入除数,isprime
定义c(n):返回bin(n).count(“1”)&1
def-ok(n):返回n>0和all(c(d)表示d的除数(n,generator=True))
打印([k代表范围(174)中的k,如果正常(k)])#迈克尔·布拉尼基2022年7月24日
1, 2, 4, 6, 12, 24, 66, 132, 264, 792, 3960, 14652, 26664, 29304, 79992, 146520, 399960, 1025640, 2666664, 7999992, 13333320, 39999960, 269333064, 807999192, 1346665320, 4039995960, 28279971720, 7999999999992, 8080799919192, 13333333333320, 13467999865320, 39999999999960, 40403999595960
评论
前10个术语与A093036号,然后A093036号(11) =1848,而a(11)=3960,因为从a(1)到a(10),所有回文除数也是重复数,然后616是1848的非重复回文除法。
重复数位除数的数量:1、2、3、4、5、6、8、10、12、14、16、17、18。。。
重复数字索引:1、2、3、4、7。。。
例子
132有12个除数:{1、2、3、4、6、11、12、22、33、44、66、132},其中10个是重复数位:{1,2,3,4,6,11,22,33,44,66}。小于132的正整数最多有十个重复数位除数;因此132是一个术语。
数学
repQ[n_]:=长度@并集@整数位数[n]==1;s[n_]:=除数和[n,1&,repQ[#]&];smax=0;序列={};做[s1=s[n];如果[s1>smax,smax=s1;AppendTo[seq,n]],{n,1,10^5}];序列(*阿米拉姆·埃尔达尔2021年1月11日*)
黄体脂酮素
f(n)=汇总(n,d,isrd(d));
列表(nn)={my(m=0);对于(n=1,nn,my(x=f(n));如果(x>m,打印1(n,“,”);m=x););}\\米歇尔·马库斯,2021年1月11日
7, 13, 31, 43, 73, 91, 127, 157, 211, 217, 241, 301, 307, 403, 421, 463, 511, 559, 601, 757, 889, 949, 1093, 1099, 1123, 1333, 1477, 1483, 1651, 1687, 1723, 2041, 2149, 2263, 2551, 2743, 2801, 2821, 2947, 2971, 3133, 3139, 3241, 3307, 3541, 3907, 3913, 3937
评论
这个序列的术语是巴西素数和两个或多个不同巴西素数的乘积。
没有偶数,因为2不是巴西人。
例子
91是一个术语,因为91的所有大于1:{7,13,91}的除数都是巴西数字,7=111_2,13=111_3和91=77_12。
数学
brazQ[n_]:=块[{k,b,ok},如果[FindInstance[k(1+b)==n&&1<b<n-1&&0<k<b,{k,b},整数]!={},真,b=2;ok=错误;而[1+b+b^2<=n&&!ok,ok=长度@并集@整数位数[n,b++]==1];确定]];选择[Range[3,4000,2],AllTrue[Rest@Divisors@#,brazQ]&](*乔瓦尼·雷斯塔,2019年6月29日*)
最大值=5000;fQ[n_]:=模块[{b=2,发现=False},而[b<n-1&&Length[Union[IntegerDigits[n,b]]>1,b++];b<n-1];A125134号=选择[Range[4,max],fQ];选择[Range[2,max],Intersection[A125134号,静止[Divisors[#]]]==静止[Diviors[#]]&](*瓦茨拉夫·科特索维奇,2019年6月29日,使用T.D.诺伊*)
黄体脂酮素
(PARI)is b(n)=表示(b=2,n-2,d=数字(n,b);如果(vecmin(d)==vecmax(d),返回(1));
isok(n)={fordiv(n,d,if((d>1)&&!isb(d),return(0)););return\\米歇尔·马库斯2019年6月29日
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 18, 20, 21, 24, 27, 36, 40, 54, 63, 72, 81, 108, 162, 216, 243, 324, 486, 648, 972, 1944
评论
由于唯一的素数Niven数是单数字素数2、3、5和7,所以所有项都是7光滑数(A002473号).
如果k是项,那么k的所有除数也是项。由于所有项都是7-光滑的,所以每个项都是p*k的形式,其中p位于{2,3,5,7}中,k是一个较小的项。因此,很容易验证这个序列中只有31个术语,1944是最后一个术语。
例子
6是一个项,因为6的所有除数,即1、2、3和6,都是Niven数。
数学
nivenQ[n_]:=可除[n,Plus@@IntegerDigits[n]];allQ[n_]:=全部真[Divisors[n],nivenQ];p={1,2,3,5,7};s={1};n=0;而[Length[s]!=n、 n=长度[s];s=选择[Union@Flatten@Outer[Times,s,p],allQ]];秒
1, 2, 4, 6, 12, 24, 72, 66, 666, 132, 1332, 264, 2664, 792, 13320, 3960, 14652, 26664, 48840, 29304, 79992, 341880, 146520, 399960, 1333332, 1025640, 2799720, 8879112, 2666664, 18666648, 7999992, 44395560, 13333320, 93333240, 39999960, 279999720, 269333064
例子
72有12个除数:{1,2,3,4,6,8,9,12,18,24,36,72},只有{1,2,3,4,6,8,9}是重复数;小于72的正整数没有七个重复数字除数,因此a(7)=72。
数学
f[n_]:=除数和[n,1&,长度[Union[Integer Digits[#]]]==1&];seq[len_,nmax]:=模块[{s=表[0,{len}],c=0,n=1,i},而[c<len&&n<nmax,i=f[n];如果[i<=len&&s[[i]]==0,c++;s[[i]]=n];n++];s] ;序列[24,10^6](*阿米拉姆·埃尔达尔2022年7月15日*)
黄体脂酮素
a(n)=我的(k=1);while(sumdiv(k,d,isrep(d))!=n、 k++);k\\米歇尔·马库斯2022年7月15日
(Python)
从sympy导入除数
从itertools导入计数,islice
定义c(n):返回长度(集(str(n)))==1
def f(n):如果c(d),则返回和(1代表除数中的d(n,生成器=True))
定义代理():
n、 adict=1,dict()
对于计数(1)中的k:
fk=f(k)
如果fk不在adict:adict[fk]=k
而adict中的n:生成adict[n];n+=1
打印(列表(islice(agen(),21))#迈克尔·布拉尼基2022年7月26日
1, 3, 5, 7, 9, 13, 15, 17, 19, 31, 35, 37, 39, 51, 53, 57, 59, 71, 73, 79, 91, 93, 95, 97, 111, 137, 139, 153, 157, 159, 173, 179, 193, 197, 221, 223, 227, 229, 317, 333, 359, 371, 379, 395, 397, 443, 449, 519, 537, 571, 579, 591, 593, 661, 663, 669, 719, 739
数学
simQ[n_]:=AllTrue[Tally@IntegerDigits[n],EvenQ[Plus@@#]&];选择[Range[1000],AllTrue[Divisors[#],simQ]&](*阿米拉姆·埃尔达尔,2022年7月19日*)
黄体脂酮素
(PARI)issimber(m)=我的(d=数字(m),s=集合(d));对于(i=1,#s,如果(#select(x->(x==s[i]),d)%2!=(s[i]%2),返回(0));返回(1)\\A333369飞机
isok(k)=fordiv(k,d,如果(!issember(d),返回(0));返回(1)\\米歇尔·马库斯2022年7月19日
(Python)
从辛导入除数,isprime
定义c(n):s=str(n);对于集合中的d,返回所有(s.count(d)%2==int(d)%2%)
def-ok(n):返回n>0和all(c(d)表示d的除数(n,generator=True))
打印([k代表范围(740)中的k,如果正常(k)])#迈克尔·布拉尼基2022年7月24日
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 15, 24, 1111111111111111111, 11111111111111111111111
评论
扎克曼数字是可以被数字乘积整除的数字(参见链接)。
下一项是重单位素数R_317,它太大,无法包含在数据中。
当且仅当存在无穷多个重单位素数时,该序列是无限的。
例子
6是一个术语,因为6的所有除数,即1、2、3和6,都是扎克曼数。
数学
zuckQ[n_]:=(prod=Times@@IntegerDigits[n])>0&&Divisible[n,prod];选择[Range[24],AllTrue[Divisors[#],zuckQ]&](*阿米拉姆·埃尔达尔2020年10月1日*)
黄体脂酮素
(PARI)isok(m)={fordiv(m,d,my(p=vecprod(digits(d)));如果(!p||(d%p),返回(0));返回(1);}\\米歇尔·马库斯2020年10月5日
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 20, 21, 22, 31, 33, 40, 41, 43, 44, 53, 55, 61, 62, 63, 66, 71, 73, 77, 82, 83, 86, 88, 93, 97, 99, 110, 211, 220, 311, 331, 421, 422, 431, 433, 440, 443, 511, 521, 541, 622, 631, 633, 641, 643, 653, 661, 662, 733, 743, 751
例子
数字110是按顺序排列的,因为110的所有除数(1、2、5、10、11、22、55、110)都是十进制数字按非递增顺序排列的数字。
MAPLE公司
带有(数字理论):A190220型:=proc(n)选项记住:局部d,dd,i,j,k,m,poten:if(n=1)然后返回1:fi:从procname(n-1)返回k+1 do d:=除数(k):poten:=1:从i到nops(d)do m:=-1:dd:=转换(d[i],base,10):从j到nops:fi:od:if(poten=1)然后返回k:fi:od:end:seq(A190220型(n) ,n=1..64)#纳撒尼尔·约翰斯顿,2011年5月14日
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 12, 14, 16, 18, 21, 23, 25, 27, 29, 32, 36, 41, 43, 47, 49, 50, 54, 58, 61, 63, 67, 69, 81, 83, 87, 89, 94, 98, 101, 103, 107, 109, 123, 125, 127, 129, 141, 145, 147, 149, 161, 163, 167, 181, 183, 189, 214, 218, 250, 254, 290, 298
例子
32是一个术语,因为32的所有除数,即1、2、4、8、16和32,都是交替数
数学
q[n_]:=所有真[Divisors[n]!成员Q[Differences[Mod[Integer Digits[#],2],0]&];选择[范围[300],q](*阿米拉姆·埃尔达尔2022年7月12日*)
黄体脂酮素
(Python)
从sympy导入除数
def p(d):如果“02468”中有d,则返回0,否则返回1
定义c(n):
如果n<10:返回True
s=str(n)
返回所有(p(s[i])!=范围(len(s)-1)内i的p(s[i+1])
定义正常(n):
返回c(n)和all(c(d)for d in divisors(n,generator=True))
打印([k代表范围(1200)中的k,如果正常(k)])#迈克尔·布拉尼基2022年7月12日
(PARI)isokd(n,d=数字(n))=对于(i=2,#d,如果((d[i]-d[i-1])%2==0,返回(0));1; \\A030141号
isok(m)=总和(m,d,isokd(d))==numdiv(m)\\米歇尔·马库斯2022年7月12日
1, 2, 3, 4, 5, 6, 7, 8, 9, 11, 12, 13, 14, 15, 16, 17, 18, 19, 22, 23, 24, 25, 26, 27, 28, 29, 33, 34, 35, 36, 37, 38, 39, 44, 45, 46, 47, 48, 49, 55, 56, 57, 58, 59, 66, 67, 68, 69, 77, 78, 79, 88, 89, 99, 111, 112, 113, 114, 115, 116, 117, 118, 119, 125
例子
112是按顺序排列的,因为112的所有除数(1、2、4、7、8、14、16、28、56112)都是十进制数字不递减的数字。
MAPLE公司
带有(数字理论):A190221号:=proc(n)选项记住:局部d,dd,i,j,k,m,poten:如果(n=1),则返回1:fi:从procname(n-1)返回k,+1 do d:=除数(k):poten:=1:对于i从1到nops(d)do m:=10:dd:=convert(d[i],base,10):对于j从1到no(dd)do if(m>=dd[j]),则m:=dd[j]:else poten:=0:break:fi:od:if(poten=0),则break:fi:od:if(poten=1)然后返回k:fi:od:end:seq(A190221号(n) ,n=1..64)#纳撒尼尔·约翰斯顿2011年5月6日
数学
ndoQ[n_]:=最小值[Differences[Integer Digits[n]]>=0;选择[Range[200],AllTrue[Divisors[#],ndoQ]&](*需要Mathematica版本10或更高版本*)(*哈维·P·戴尔2021年6月2日*)
搜索在0.009秒内完成
查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|网络摄像头
贡献新序列。或评论|格式|样式表|变换|超级搜索|最近
OEIS社区|维护人OEIS基金会。
许可协议、使用条款、隐私政策。.
上次修改时间:美国东部夏令时2024年9月21日09:30。包含376084个序列。(在oeis4上运行。)
|