登录

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

 

提示 （来自的问候整数序列在线百科全书!) A138010型 a（n）是n除以d（n）的正除数，其中d（n，A000005号（n） ；a（n）也等于d（gcd（n，d（n）））。 4 1, 2, 1, 1, 1, 2, 1, 3, 2, 2, 1, 4, 1, 2, 1, 1, 1, 4, 1, 2, 1, 2, 1, 4, 1, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 3, 1, 2, 1, 4, 1, 2, 1, 2, 2, 2, 1, 2, 1, 2, 1, 2, 1, 2, 1, 4, 1, 2, 1, 6, 1, 2, 2, 1, 1, 2, 1, 2, 1, 2, 1, 6, 1, 2, 2, 2, 1, 2, 1, 4, 1, 2, 1, 6, 1, 2, 1, 4, 1, 4, 1, 2, 1, 2, 1, 6, 1, 2, 2, 1, 1, 2, 1, 4, 1, 2, 1, 6, 1, 2, 1, 2, 1, 2, 1, 2, 2, 2, 1, 4 (列表;图表;参考;听;历史;文本;内部格式) 抵消 1、2 链接 安蒂·卡图恩，n=1..10000时的n，a（n）表 配方奶粉 a（n）=A000005号(A009191号（n） ）。[来自备选描述。]-安蒂·卡图恩2017年5月25日 例子 12有6个除数（1,2,3,4,6,12）。12除以6的除数是1，2，3，6。由于有4个这样的变量，那么a（12）=4。 MAPLE公司 使用（numtheory）：a:=proc（n）局部div，c，j:div:=divisors（n）：c:=0：对于j到tau（n），如果“mod”（tau（n），div[j]）=0，则c:=c+1 else end if end do:c end proc:seq（a（n），n=1..90）#Emeric Deutsch公司2008年3月2日 数学 表[Length[Select[Divisors[n]，Mod[Length[Divisors[n]]，#]=0&]]，｛n，1100｝](*Stefan Steiner伯格，2008年2月29日*） 表[Count[DivisorSigma[0，n]/Divisors[n]，_？整数Q]，{n，120}](*哈维·P·戴尔2019年5月31日*） 黄体脂酮素 （PARI）A138010型（n） =sumdiv（n，d，如果（！（numdiv（n）%d），1，0））\\安蒂·卡图恩2017年5月25日 （方案）（定义(A138010型n）(A000005号（gcd编号(A000005号n） ）））；；安蒂·卡图恩2017年5月25日 （Python） 从symy导入除数，除数计数 定义a（n）：返回和（[1*（divisor_count（n）%d==0）for d in divisors（n）]）#因德拉尼尔·戈什2017年5月25日 （岩浆）[#Divisors（Gcd（n，#Divisor（n）））：[1.120]]中的n//马吕斯·A·伯蒂2019年8月3日 交叉参考 囊性纤维变性。A000005号,A009191号,A124315号,A138011型,A138012型. 上下文中的序列：A349658型 A345992型 A350333型*A206487型 A209062型 A167204号 相邻序列：A138007号 A138008型 13809澳元*A138011型 A138012型 A138013型 关键词 非n 作者 勒罗伊·奎特，2008年2月27日 扩展 更多术语来自Stefan Steiner伯格和Emeric Deutsch公司2008年2月29日 进一步扩展（至120条款）安蒂·卡图恩2017年5月25日 状态 经核准的

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

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

最后修改时间：美国东部时间2024年4月23日06:45。包含371906个序列。（在oeis4上运行。）