来自在线整数百科全书的问候语!http://oeis.org/ Search: id:a007416 Showing 1-1 of 1 %I A007416 M1022 %S A007416 1,2,4,6,12,16,24,36,48,60,64,120,144,180,192,240,360,576,720,840,900, %T A007416 960,1024,1260,1296,1680,2520,2880,3072,3600,4096,5040,5184,6300,6480, %U A007416 6720,7560,9216,10080,12288,14400,15120,15360,20160,25200,25920,27720,32400,36864,44100 %N A007416 The minimal numbers: sequence A005179 arranged in increasing order. %C A007416 Numbers k such that there is no x < k such that A000005(x) = A000005(k). 4月28日,2002岁的C·Booo-CulITRez,Ac21418Brown指出A000 2182是一个子序列。-查尔斯R GrasousIVI,Jun 07 2013 C %A000 716 A047 98A(A(n))=0。- AN ReHurd ZunkeleRez,11月03 A.02548的2015×%C A000 716子序列。如果A02587中的一些m是该序列中具有其除数的第一项,则M是在此序列中。8月31日,2019岁的J. Roberts,《整数的诱惑》,数学。美国,1992,第86页.0%D A000 716 N.J.A.斯隆和Simon Plouffe,整数序列百科全书,学术出版社,1995(包括这个序列)。n,a(n)n=1…10000的表(来自T.D.NOE的前1000项)%H A00 716 16 Ron Brown,具有给定数除数的最小数(2009),数字理论杂志116:1(2005),pp.150158。给定数除数的最小数阿梅尔。数学月刊,75(1968),725-729。整数引诱附注81, 86的带注释的扫描拷贝.%%H A00 716 Anna K. Savvopoulou和Christopher M. Wedrychowicz,关于给定数除数的最小数, The Ramanujan Journal, 2015, Vol. 37, pp. 51-64. %p A007416 for n from 1 to 10^5 do %p A007416 t:= numtheory:-tau(n); %p A007416 if not assigned(B[t]) then B[t]:= n fi; %p A007416 od: %p A007416 sort(map(op,[entries(B)]));# _Robert Israel_, Nov 11 2015 %t A007416 A007416 = Reap[ For[ s = 1, s <= 10^5, s++, If[ Abs[ Product[ DivisorSigma[0, i] - DivisorSigma[0, s], {i, 1, s-1}]] > 0, Print[s]; Sow[s]]]][[2, 1]] (* _Jean-François Alcover_, Nov 19 2012, after Pari *) %o A007416 (PARI) for(s=1,10^6,if(abs(prod(i=1,s-1,numdiv(i)-numdiv(s)))>0,print1(s,","))) %o A007416 (PARI) is(n)=my(d=numdiv(n));for(i=1,n-1,if(numdiv(i)==d, return(0))); 1 \\ _Charles R Greathouse IV_, Feb 20 2013 %o A007416 (Haskell) %o A007416 a007416 n = a007416_list !! (n-1) %o A007416 a007416_list = f 1 [] where %o A007416 f x ts = if tau `elem` ts then f (x + 1) ts else x : f (x + 1) (tau:ts) %o A007416 where tau = a000005' x %o A007416 -- _Reinhard Zumkeller_, Apr 18 2015 %Y A007416 Cf. A005179, A025487, A099317, A099312, A099314, A099316, A099318. %Y A007416 Cf. A000005, A002182, A047983. %K A007416 nonn,easy,nice %O A007416 1,2 %A A007416 _N. J. A. Sloane_ # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE