显示找到的5个结果中的1-5个。
第页1
1, 1, 1, 1, 4, 2, 3, 1, 1, 1, 1, 4, 12, 2, 1, 1, 8, 1, 3, 1, 5, 2, 1, 4, 1, 5, 1, 24, 28, 6, 15, 1, 1, 1, 1, 1, 36, 2, 1, 1, 40, 2, 3, 4, 4, 10, 1, 4, 1, 7, 15, 3, 4, 2, 19, 4, 1, 1, 1, 8, 60, 2, 1, 1, 1, 6, 3, 1, 1, 2, 35, 1, 72, 1, 1, 12, 1, 2, 3, 1, 1, 1, 1, 4, 1, 2, 1, 4, 8, 27, 5, 8, 29, 2, 7, 60, 48, 1, 1, 1, 100, 6, 3, 1, 1
交叉参考
另请参阅A009194号,A325385美元,325813英镑,A325975型,A326047型,A326048美元,A326056型,A326057型,A326060型,A326062型,A326129型,A326130型,A326140型,A326144型.
1, 1, 4, 1, 1, 4, 4, 1, 1, 9, 4, 4, 1, 4, 4, 1, 9, 1, 4, 1, 16, 36, 4, 4, 1, 1, 4, 4, 1, 36, 16, 9, 16, 9, 16, 1, 1, 4, 4, 9, 1, 16, 4, 4, 1, 36, 16, 4, 1, 1, 36, 49, 9, 4, 36, 4, 16, 9, 4, 4, 1, 16, 4, 1, 4, 144, 4, 9, 16, 144, 36, 1, 1, 1, 4, 4, 16, 4, 16, 1, 121, 9, 4, 16, 36, 4, 4, 36, 9, 9, 16, 4, 64, 144, 4, 36
数学
模块[{sqs=Range[100,1,-1]^2},表[SelectFirst[sqs,Divisible[DivisorSigma[1,n],#]&],{n,100}]](*哈维·P·戴尔2019年7月29日*)
0, 1, 2, 0, 4, 5, 6, 4, 0, 9, 10, 8, 12, 13, 14, 0, 16, 9, 18, 16, 20, 21, 22, 20, 0, 25, 18, 24, 28, 29, 30, 16, 32, 33, 34, 0, 36, 37, 38, 36, 40, 41, 42, 40, 36, 45, 46, 32, 0, 25, 50, 48, 52, 45, 54, 52, 56, 57, 58, 56, 60, 61, 54, 0, 64, 65, 66, 64, 68, 69, 70, 36, 72, 73, 50, 72, 76, 77, 78, 64, 0, 81, 82, 80, 84
数学
表[n-Max[Select[Divisors[n],IntegerQ[Sqrt[#]]&]],{n,100}](*哈维·P·戴尔2020年4月21日*)
a(n)是n的除数之和,减去除以该和的最大平方,减去n:a(n)=σ(n)-A008833号(σ(n))-n。
+10 4
-1, 0, -3, 2, 0, 2, -3, 6, 3, -1, -3, 12, 0, 6, 5, 14, -8, 20, -3, 21, -5, -22, -3, 32, 5, 15, 9, 24, 0, 6, -15, 22, -1, 11, -3, 54, 0, 18, 13, 41, 0, 38, -3, 36, 32, -10, -15, 72, 7, 42, -15, -3, -8, 62, -19, 60, 7, 23, -3, 104, 0, 18, 37, 62, 15, -66, -3, 49, 11, -70, -35, 122, 0, 39, 45, 60, 3, 86, -15, 105, -81, 35, -3
1, 1, 2, 1, 1, 2, 2, 1, 1, 3, 2, 2, 1, 2, 2, 1, 3, 1, 2, 1, 4, 6, 2, 2, 1, 1, 2, 2, 1, 6, 4, 3, 4, 3, 4, 1, 1, 2, 2, 3, 1, 4, 2, 2, 1, 6, 4, 2, 1, 1, 6, 7, 3, 2, 6, 2, 4, 3, 2, 2, 1, 4, 2, 1, 2, 12, 2, 3, 4, 12, 6, 1, 1, 1, 2, 2, 4, 2, 4, 1, 11, 3, 2, 4, 6, 2, 2, 6, 3, 3, 4, 2, 8, 12, 2, 6, 7, 3, 2, 1, 1, 6, 2, 1, 8
数学
表[Last[Select[Sqrt[#]&&@Divisiors[DivisorSigma[1,n]],IntegerQ]],{n,120}](*哈维·P·戴尔,2022年6月25日*)
搜索在0.005秒内完成
|