A069525-OEIS公司

A069525号

数字和为6的n的最小倍数，如果不存在这样的数字，则为0，例如a（9k）=0。

6, 6, 6, 24, 15, 6, 42, 24, 0, 60, 33, 24, 312, 42, 15, 240, 51, 0, 114, 60, 42, 132, 1104, 24, 150, 312, 0, 420, 1131, 60, 1023, 2112, 33, 204, 105, 0, 222, 114, 312, 240, 123, 42, 1032, 132, 0, 1104, 141, 240, 12201, 150, 51, 312, 1113, 0, 330, 4200, 114, 4002, 2301

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,1

除了那些可以被9整除的数之外，所有可以被239、271或803整除的数字n都有a（n）=0-罗伯特·伊斯雷尔2019年9月4日

链接

罗伯特·伊斯雷尔，n=1..2500时的n，a（n）表

配方奶粉

a（n）=n*A088395号（n） ●●●●-R.J.马塔尔2019年8月6日

MAPLE公司

N： =1000:#以获得（1）。。a（否）

nextL:=进程（L）

局部m，q，Lp；

对于1 do中的m

如果L[m]>0，则

如果m=线性代数：-维数（L），则返回<5，0$（m-1），1>

其他Lp:=L；

Lp[1]：=L[m]-1；

Lp[2..m]：=0；

Lp[m+1]：=L[m+1]+1；

返回Lp；

菲

od；

结束进程：

nogo:=proc（n）局部m，a2，a5，S，S2，S3，i，j；

a2:=padic:-ordp（n，2）；

a5:=padic:-ordp（n，5）；

m： =数量理论：-顺序（10，n/（2^a2*5^a5））+最大值（a2，a5）；

S： ={seq（10^i模n，i=0..m-1）}；

S2:={seq（seq（S[i]+S[j]mod n，j=1..i），i=1..nops（S））}；

S3:={seq（seq（S[i]+S2[j]mod n，j=1..nops（S2）），i=1..nobs（S））}；

evalb（S3相交映射（t-＞-t mod n，S3）＝{}）；

结束进程：

议程：=删除（t->（t mod 9=0或t mod 239=0或者t mod 271=0或tmod 803=0，{$1..N}）：

五十： =<6>：x:=6：

A： =矢量（N）：

而议程<>{}和x<10^20

x： =加法（L[i]*10^（i-1），i=1.线性代数：-维数（L））；

找到，议程：=selectremove（t->x mod t=0，议程）；

如果找到<>{}，则

A[convert（found，list）]：=x；

fi；

五十： =下一个L（L）；

日期：

议程：=删除（nogo，Agenda）；

如果议程＜＞｛｝，则打印f（“找不到%a\n的值”，议程）fi；

转换（A，列表）#罗伯特·伊斯雷尔2019年9月4日

数学

数组[If[AnyTrue[Mod[#，{9，239，271，803}]，#==0&]，0，块[{k=1}，While[Total@IntegerDigits[k#]！=6，k++]；k#]]&，59](*迈克尔·德弗利格2019年9月4日*）

交叉参考

囊性纤维变性。A062220型,A069521号,A069522号,A069523号,A069524号.

上下文中的序列：A109047号 A337814 A153171号*A345991型 A054435号 A019175号

相邻序列：A069522号 A069523号 A069524号*A069526号 A069527号 A069528号

关键词

基础,非n

作者

阿马纳特·穆尔蒂2002年4月1日

扩展

来自的更多条款雷·钱德勒2003年7月30日

状态

经核准的