搜索: a29991-编号:a299991
|
|
|
|
-1, -2, -2, -3, -2, -3, -2, -4, -3, -2, -2, -4, -2, -2, -3, -5, -2, -2, -2, -4, -3, -1, -2, -5, -3, -1, -4, -4, -2, 2, -2, -6, -2, 0, -3, -4, -2, 0, -2, -5, -2, 3, -2, -3, -4, 0, -2, -5, -3, 0, -2, -3, -2, 0, -3, -5, -2, 0, -2, 2, -2, 0, -4, -7, -3, 6, -2, -2
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
随着n的增加,a(n)的值通常不太经常为负值。
a(1)=-1。
对于素数p,自1|p起a(p)=-2,共音被限制为除数p。
对于完美素数幂p^e,a(p^e)=-(e+1),因为在p^e的同调项中,所有与p^e没有素因子q互素的m<p^e都是具有1<p^k<=p^e之幂p^k;所有这些p^k除以p^e。
|
|
链接
|
|
|
配方奶粉
|
|
|
例子
|
a(30)=2,因为30有8个除数,数字{4,8,9,12,16,18,20,24,25,27}用e>1除以30^e;A243822型(30)=10和A000005号(30) = 8; 10 - 8 = 2. 或者,A010846号(30) = 18; 18 - 2*8 = 2.
a(n)和相关序列的一些值:
----------------------------------------------------
1 -1 1 0 1 0
2 -2 2 0 2 0
3 -2 2 0 2 0
4 -3 3 0 3 0
5 -2 2 0 2 0
6 -3 5 1 4 {4}
7 -2 2 0 2 0
8 -4 4 0 4 0
9 -3 3 0 3 0
10 -2 6 2 4 {4,8}
11 -2 2 0 2 0
12 -4 8 2 6 {8,9}
...
30 2 18 10 8 {4,8,9,12,16,18,20,24,25,27}
...
34 0 8 4 4 {4,8,16,32}
...
|
|
数学
|
表[Count[Range[n],_?(PowerMod[n,Floor@Log2@n,#]==0&)]-2除数Sigma[0,n],{n,68}]
|
|
交叉参考
|
囊性纤维变性。A000005号,A002110号,A010846号,A243822型,726218元,A272619型,A299991型,A299992型,A300155型,A300156型,A300157型.
|
|
关键字
|
签名
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
6, 10, 12, 14, 15, 18, 20, 21, 22, 24, 26, 28, 33, 35, 36, 39, 40, 44, 45, 48, 51, 52, 55, 56, 57, 63, 65, 68, 69, 72, 75, 76, 77, 80, 85, 87, 88, 91, 92, 93, 95, 96, 99, 100, 104, 108, 111, 112, 115, 116, 117, 119, 123, 124, 129, 133, 135, 136, 141, 143, 144
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
素数p有2个除数{1,p};这两个数字构成了p的共音:共音中没有非除数。
素数幂p^i有(i+1)除数;同一素数p的所有小幂,即p^j与0<=j<=i,也除以p^i。这些数字构成p^i的余弦;共音中没有非除数。
因此,我们可以忽略n在余音中没有非除数的情况,因为它们的除数明显多于非除数。
这个序列列出了ω(n)>1的(复合)数n,其中n的余弦中的非除数k少于除数d。
最小的奇数项是15。
以下术语m是最小的A001222号(m) ={2,3,4,…}:{6,12,24,48,96,192,384,1152,2304,4608,13824,27648,55296,110592,331776,663552,1327104,3981312,7962624,15925248,…}
对于0<=k<=7,小于10^k的项数:{0,2,44,319,2171,15545,119469,969749}。
|
|
链接
|
|
|
例子
|
6是第一项,因为它是具有多个不同素数除数的最小数,其除数(4)比A243822型(6) = 1.
|
|
数学
|
选择[Range@144,Function[n,And[PrimeNu[n]>1,Count[Range[n],_?(PowerMod[n,Floor@Log2@n,#]==0&)]<2除数Sigma[0,n]]]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
34, 38, 46, 50, 54, 58, 62, 105, 249, 267, 268, 284, 291, 292, 303, 309, 316, 321, 324, 327, 332, 339, 356, 363, 381, 385, 388, 393, 404, 411, 412, 417, 428, 436, 447, 452, 453, 455, 471, 484, 489, 500, 501, 507, 508, 519, 537, 543, 573, 579, 591, 595, 597
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,1
|
|
评论
|
这个序列列出了n的余音中非除数k相等的数字作为除数d。
最小的奇数项是105。
|
|
链接
|
|
|
例子
|
34是第一项,因为它是其中最小的数字A243822型(34) =A000005号(34). 对于n=34,有4个除数{1,2,17,34}和4个非除数1<=m<=n,使得m|n^e与e>1:{4,8,16,32}。
|
|
数学
|
选择[Range@600,Function[n,Count[Range[n],_?(PowerMod[n,Floor@Log2@n,#]==0&)]==2除数Sigma[0,n]]]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
1, 30, 42, 66, 78, 90, 102, 114, 138, 150, 210, 330, 390, 510, 570, 630, 870, 990, 1050, 1470, 1890, 2100, 2310, 2730, 3570, 3990, 4620, 5460, 6510, 6930, 8190, 9240, 10710, 11550, 13650, 16170, 19110, 20790, 23100, 24570, 25410, 30030, 39270, 43890, 46410
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
|
|
链接
|
|
|
例子
|
|
|
数学
|
使用[{s=Table[Count[Range[n],_?(PowerMod[n,Floor@Log2@n,#]==0&)]-2 DivisorSigma[0,n],{n,10^3}]},Map[FirstPosition[s,#][[1]]&,Union@FoldList[Max,s]]
|
|
交叉参考
|
|
|
关键字
|
非n
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
|
|
|
|
-1, 2, 3, 6, 7, 8, 9, 10, 11, 17, 36, 45, 48, 54, 56, 67, 69, 76, 97, 118, 119, 120, 219, 231, 249, 258, 286, 299, 302, 356, 367, 377, 392, 455, 471, 533, 547, 563, 573, 576, 647, 1033, 1096, 1125, 1129, 1157, 1178, 1334, 1405, 1439, 1587, 1664, 1721, 1952
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
抵消
|
1,2
|
|
评论
|
小于10^k且0<=k<=7:{0,1,6,18,32,51,68,96}的项数。
|
|
链接
|
|
|
例子
|
|
|
数学
|
Union@FoldList[Max,Table[Count[Range[n],_?(PowerMod[n,Floor@Log2@n,#]==0&)]-2除数Sigma[0,n],{n,10^3}]]
|
|
交叉参考
|
|
|
关键字
|
签名
|
|
作者
|
|
|
状态
|
经核准的
|
|
|
搜索在0.012秒内完成
|