搜索: a049101-编号:a049101
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 2, 4, 2, 4, 8, 1, 1, 8, 8, 6, 5, 4, 2, 2, 8, 3
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1, 2
|
|
链接
|
|
|
交叉参考
|
|
|
关键词
|
非n,基础,完成,满的
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A049102号
|
| 正数n,使得n是(n的数字乘积)*(n的位数之和)的倍数。 |
|
+10 9
|
|
|
1, 12, 111, 112, 135, 144, 216, 432, 2112, 11112, 11115, 11232, 12312, 13824, 14112, 21112, 23112, 27216, 31212, 41112, 81216, 93312, 111132, 122112, 124416, 131112, 132192, 186624, 212112, 221112, 221184, 222912, 239112, 248832, 311472, 316224
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1, 2
|
|
评论
|
从经验上看,形式(10^3^n-1)/9的每个数字似乎都具有此属性-大卫·W·威尔逊2001年12月12日
事实上,(10^3^n-1)/9就是这个序列。它具有数字和乘以等于3^n的数字乘积。
证明:(10^3^0-1)/9=(10^1-1)/9=1在序列中。
如果(10^3^k-1)/9在序列中,那么(10^3 ^是无限的。(完)
|
|
链接
|
|
|
例子
|
432是一个术语,因为:4*3*2=24,4+3+2=9,24*9=216和432/216=2。
|
|
数学
|
选择[Range[10^6],IntegerQ[#/(应用[Times,Integer Digits[#]]*Apply[Plus,Intiger Digits[#]])]&]
|
|
黄体脂酮素
|
(PARI)isok(n)=我的(d=数字(n));vecprod(d)&&(n%(vecsum(d)*vecprods(d)==0)\\米歇尔·马库斯2019年1月23日
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 37, 14, 1, 1, 2, 2, 88, 926, 247, 104, 114, 4, 196, 754, 214, 9, 289, 571, 47, 32, 2058, 1696, 36, 2428, 68, 3, 2946, 3071, 96, 86, 123, 3, 103, 61, 113, 119, 138, 97, 797, 41153, 30867, 5672, 30892, 644, 1146, 31142, 289, 41893, 499, 896, 109, 33642
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1, 2
|
|
链接
|
|
|
黄体脂酮素
|
(ARIBAS):函数a049106(a,b:整数);var n,k,j,p,r,d:整数;s: 字符串;开始于n:=a到bdos:=itoa(n);k:=0;p:=1;对于j:=0到长度(s)-1,做d:=atoi(s[j.j]);k:=k+d;p:=p*d;结束;r:=p*k;如果r>0,则如果n mod r=0,则写入(n div r,“,”);结束;结束;结束;结束;a049106(11220000)。
|
|
交叉参考
|
|
|
关键词
|
非n,基础
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 4, 9, 16, 25, 36, 49, 64, 81, 0, 2, 6, 12, 20, 30, 42, 56, 72, 90, 0, 6, 16, 30, 48, 70, 96, 126, 160, 198, 0, 12, 30, 54, 84, 120, 162, 210, 264, 324, 0, 20, 48, 84, 128, 180, 240, 308, 384, 468, 0, 30, 70, 120, 180, 250, 330, 420, 520, 630, 0, 42, 96, 162, 240, 330
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1, 2
|
|
评论
|
a(n)可以大于、小于或等于n;请参阅示例部分。
|
|
链接
|
|
|
例子
|
对于n=12,a(12)=(1+2)*(1*2)=3*2=6<n;
对于n=19,a(19)=(1+9)*(1*9)=90>n;
对于n=135,a(135)=(1+3+5)*(1*3*5)=135=n。
|
|
数学
|
asum[x_]:=应用[Plus,IntegerDigits[x]]apro[x_]:=应用[Times,IntigerDigits[x]]a[n]=asum[n]*apro[n]
sdpd[n_]:=模块[{idn=整数位数[n]},总计[idn]次@@idn];数组[sdpd,70](*哈维·P·戴尔2011年12月31日*)
|
|
黄体脂酮素
|
(PARI)和D(x)={局部(s=0);而(x>9,s+=x%10;x\=10);返回(s+x)}
ProdD(x)={local(p=1);当(x>9&p>0,p*=x%10;x\=10);返回(p*x)}
{对于(n=1000,a=SumD(n)*ProdD(n);写入(“b066308.txt”,n,“”,a))}\\哈里·史密斯2010年2月9日
(PARI)a(n)=我的(d=数字(n));vecsum(d)*prod(k=1,#d,d[k])\\米歇尔·马库斯2017年2月24日
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
A023651号
|
| 对k进行编号,使(k的数字乘积)*(k的位数之和)=2k。 |
|
+10 4
|
|
|
|
抵消
|
1, 2
|
|
评论
|
|
|
链接
|
|
|
数学
|
Do[If[2n==应用[Times,IntegerDigits[n]]应用[Plus,IntigerDigits[n]',打印[n]]{n,0,10^7}]
|
|
黄体脂酮素
|
(PARI)isok(n)=如果(n,factorback(digits(n)),0)*总和(n)==2*n\\亚辛2022年7月22日
(Python)
从数学导入prod
定义s(n):返回和(map(int,str(n)))
定义p(n):返回prod(map(int,str(n)))
对于范围(0,10**6)中的n:
如果p(n)*s(n)==2*n:
|
|
交叉参考
|
|
|
关键词
|
非n,基础,完成,满的
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
2, 3, 4, 5, 6, 7, 8, 9, 14, 15, 16, 17, 18, 19, 23, 24, 25, 26, 27, 28, 29, 33, 34, 35, 36, 37, 38, 39, 42, 43, 44, 45, 46, 47, 48, 49, 52, 53, 54, 55, 56, 57, 58, 59, 62, 63, 64, 65, 66, 67, 68, 69, 72, 73, 74, 75, 76, 77, 78, 79, 82, 83, 84, 85, 86, 87, 88, 89, 92, 93, 94, 95
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
14<(1*4)*(1+4)=20,所以14是这个序列的一个项。
对于n=199,(1+9+9)*1*9*9=1539>199,所以这里是199。
|
|
数学
|
asum[x_]:=应用[Plus,IntegerDigits[x]]apro[x_]:=应用[Times,IntigerDigits[x]]sz[x__]:=asu[x]*apro[x]Do[s=sz[n];如果[Greater[s,n],Print[n]],{n,1,200}]
|
|
黄体脂酮素
|
(ARIBAS):函数a066311(a,b:整数);var n,k,j,p,d:整数;s: 字符串;从n:=a到bdos:=itoa(n)开始;k:=0;p:=1;对于j:=0到长度(s)-1,做d:=atoi(s[j.j]);k:=k+d;p:=p*d;结束;如果n<p*k,则写入(n,“,”);结束;结束;结束;a066311(0120)。
(PARI)和D(x)={局部(s=0);而(x>9,s+=x%10;x\=10);返回(s+x)}
ProdD(x)={local(p=1);当(x>9&p>0,p*=x%10;x\=10);返回(p*x)}
{n=0;对于(m=1,10^9,如果(m<ProdD(m)*SumD(m\\哈里·史密斯2010年2月10日
(PARI)isok(m)=我的(d=数字(m));m<vecprod(d)*vecsum(d)\\米歇尔·马库斯2020年3月23日
|
|
交叉参考
|
|
|
关键词
|
基础,非n,完成
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A066309号
|
| 对k进行编号,使k>(k的数字乘积)*(k的位数之和)。 |
|
+10 2
|
|
|
10, 11, 12, 13, 20, 21, 22, 30, 31, 32, 40, 41, 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 123, 124, 125, 126, 130, 131, 132, 133, 134, 140, 141, 142
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
链接
|
|
|
例子
|
13在序列中,因为(1*3)*(1+3)=3*4=12<13。
125是一个术语,因为(1*2*5)*(1+2+5)=10*8=80<125。
|
|
数学
|
asum[x_]:=应用[Plus,IntegerDigits[x]]apro[x_]:=应用[Times,IntigerDigits[x]]sz[x__]:=asu[x]*apro[x]Do[s=sz[n];如果[Greater[n,s],Print[n]],{n,1,1000}]
okQ[n_]:=模块[{idn=整数位数[n]},n>总计[idn]次@@idn];选择[范围[150],okQ](*哈维·P·戴尔2011年3月12日*)
|
|
黄体脂酮素
|
(ARIBAS):函数a066312(a,b:整数);var n,k,j,p,d:整数;s: 字符串;从n:=a到bdos:=itoa(n)开始;k:=0;p:=1;对于j:=0到长度(s)-1,做d:=atoi(s[j.j]);k:=k+d;p:=p*d;结束;如果n>p*k,则写入(n,“,”);结束;结束;结束;a066312(0150)。
(PARI)总和D(x)={local(s=0);while(x>9,s+=x%10;x\=10);return(s+x)}ProdD(x=1000,返回))}\\哈里·史密斯2010年2月10日
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 120, 130, 140, 150, 160, 170, 180, 190, 200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 301
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1, 2
|
|
评论
|
除零以外的所有整数都除以零。
|
|
链接
|
|
|
配方奶粉
|
|
|
数学
|
并集[范围[9],选择[范围[10,301],数字计数[#,10,0]>0&]]
选择[Range[301],Divisible[Product[i,{i,Integer Digits[#]}],#]&]
|
|
交叉参考
|
|
|
关键词
|
基础,容易的,非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
A066156号
|
| a(n)是k*n=(k的数字乘积)*(k的位数之和)的最小k>n,或者如果不存在这样的k,则为0。 |
|
+10 0
|
|
|
10, 135, 15, 139968, 18, 756, 476, 0, 48, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
0,1
|
|
评论
|
|
|
链接
|
|
|
数学
|
Do[k=n+1;While[k*n!=Apply[Times,IntegerDigits[k]]Apply[Plus,IntegerDigits[k]],k++];打印[k],{n,0,10}]
|
|
交叉参考
|
|
|
关键词
|
基础,非n
|
|
作者
|
|
|
扩展
|
|
|
状态
|
经核准的
|
|
|
搜索在0.007秒内完成
|