登录

OEIS由OEIS基金会的许多慷慨捐赠者.

 

提示 （来自的问候整数序列在线百科全书!) A085493号 把数k分成k+1的不同除数。 7 1, 3, 5, 7, 11, 15, 17, 19, 23, 27, 29, 31, 35, 39, 41, 47, 53, 55, 59, 63, 65, 69, 71, 77, 79, 83, 87, 89, 95, 99, 103, 107, 111, 119, 125, 127, 131, 139, 143, 149, 155, 159, 161, 167, 175, 179, 191, 195, 197, 199, 203, 207, 209, 215, 219, 223, 227, 233, 239 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1,2 评论 A085491号（a（n））>0；的补语A085492号. 链接 阿洛伊斯·海因茨，n，a（n）表，n=1.10000 Paul K.Stockmeyer，骆驼、遗传和单位分数《数学地平线》，第21期（2013年），第8-11页。 配方奶粉 ｛k>0:0＜[x^k]乘积_｛d除（k+1）｝（1+x^d）｝-阿洛伊斯·海因茨2023年2月4日 例子 42的除数是1、2、3、6、7、14、21、42。由于6+14+21=41，因此顺序为41。 43的除数是143。由于没有一个选择的除数可能加起来等于42，这意味着42不在序列中。 MAPLE公司 q： =proc（m）选项记忆；局部b，l；b、 我：= proc（n，i）选项记忆；n=0或i>=1和 （l[i]<=n和b（n-l[i]，i-1）或b（n，i-1）） 结束，排序（[numtheory[divisors]（m+1）[]]）； b（m，nops（l）-1） 结束： 选择（q，[1..300]）[]#阿洛伊斯·海因茨2023年2月4日 数学 divNextableQ[n_]：=TrueQ[Length[Select[Subsets[Divisors[n+1]]，Plus@@#==n&]]>0]；选择[Range[100]，divNextableQ](*阿尔特阿隆索2023年1月7日*） 黄体脂酮素 （标量）定义除数（n:Int）：IndexedSeq[Int]=（1到n）.filter（n%_==0） 定义divPartSums（n:Int）：List[Int]=除数（n）.toSet.subsets.toList.map（_.sum） （1到128）.过滤器（n=>divPartSums（n+1）.包含（n））//阿尔特阿隆索，2023年1月26日 交叉参考 囊性纤维变性。A085498号,A106431号. 上下文中的序列：A356065型 A082418号 A319899型*A343621型 A139252号 A076245美元 相邻序列：A085490型 A085491号 A085492号*A085494号 A085495号 A085496号 关键词 非n 作者 莱因哈德·祖姆凯勒2003年7月3日 状态 经核准的

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

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

上次修改时间：2024年4月16日00:45 EDT。包含371696个序列。（在oeis4上运行。）