登录
OEIS基金会得到了OEIS用户的捐赠和西蒙斯基金会的资助。

 

标志


提示
(问候来自整数序列在线百科全书!)
邮编:A171628 使最小部分可被部分数整除的n的组成数。 1
1、1、1、2、3、3、3、4、6、8、11、15、19、22、25、30、37、47、62、83、108、136、168、205、247、295、354、429、524、642、789、972、1196、1466、1789、2173、2625、3155、3778、4515、5391、6437、7692、9201、11014、13186、15780、18865、22516、26818、31871、37791 (列表;图表;参考文献;;历史;文本;内部格式)
抵消

1,4个

链接

阿洛伊斯·P·海因茨,n=1..900的n,a(n)表

公式

G、 f.:Sum{n>=0}[Sum{d|n}x^(n*d)*(1-x^d)/(1-x)^d]。

枫木

b: =proc(n,t,g)option remember;`if`(n=0,`if`(irem(g,t)=0,1,0),加法(b(n-i,t+1,min(i,g)),i=1..n)结束:a:=n->b(n,0,无穷大):seq(a(n),n=1..60)#海因茨2009年12月15日

邮编:A171628:=proc(n)局部g,k;g:=0;对于k从0到n,do g:=g+add(x^(k*d)*(1-x^d)/(1-x)^d,d=numtheory[除数](k));g:=展开(g);end do;coeftayl(g,x=0,n);end proc:seq(邮编:A171628(n) ,n=1..60)#R、 J.马萨2009年12月14日

数学

b[n,t_u,g_9]:=b[n,t,g]=如果[n==0,如果[Mod[g,t]==0,1,0],和[b[n-i,t+1,Min[i,g]],{i,n}]];

a[n_u]:=b[n,0,无穷大];

阵列[a,60](*让·弗朗索瓦·阿尔科弗2020年5月23日,之后海因茨*)

交叉引用

囊性纤维变性。邮编:A168656,邮编:A171625.

上下文顺序:A327720 A327718飞机 A035581号*A205566号 A064338号 邮编:A197592

相邻序列:邮编:A171625 A162716号 邮编:A171627*A171629号 A171630 邮编:A171631

关键字

容易的,

作者

弗拉德塔·乔沃维奇2009年12月13日

扩展

更多条款R、 J.马萨海因茨2009年12月14日

状态

经核准的

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

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

上次修改日期:美国东部时间2020年8月12日19:45。包含336439个序列。(运行在oeis4上。)