login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A087134 Smallest number having exactly n divisors that are not greater than the number's greatest prime factor. 6

%I #28 Feb 18 2019 02:07:46

%S 1,2,6,20,42,84,156,312,684,1020,1380,1860,3480,3720,4920,7320,10980,

%T 14640,16920,21960,26280,34920,45720,59640,69840,89880,106680,125160,

%U 145320,177240,213360,244440,269640,354480,320040,375480,435960,456120,531720,647640

%N Smallest number having exactly n divisors that are not greater than the number's greatest prime factor.

%C A087133(a(n))=n.

%C Also smallest number such that the n-th divisor is prime. - _Reinhard Zumkeller_, May 15 2006

%C From _David A. Corneth_, Jan 22 2019: (Start)

%C For the first 10000 terms except 1, a(n) is of the form A025487(k) * p where p is the smallest prime larger than the n-th divisor and, if the (n+1)-th divisor exists, less than that divisor.

%C This sequence isn't a sequence of indices of records to A087133 as it's not monotonically increasing; 354480 = a(34) > a(35) = 320040. (End)

%H David A. Corneth, <a href="/A087134/b087134.txt">Table of n, a(n) for n = 1..10000</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/DivisorFunction.html">Divisor Function</a>

%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/GreatestPrimeFactor.html">Greatest Prime Factor</a>

%e a(3) = A119313(1) = 6.

%t With[{s = Array[Function[{d, p}, LengthWhile[d, # < p &]] @@ {#, SelectFirst[Reverse@ #, PrimeQ]} &@ Divisors@ # &, 10^6]}, Array[FirstPosition[s, #][[1]] &, Max@ s + 1, 0]] (* _Michael De Vlieger_, Jan 23 2019 *)

%o (PARI) a087133(n) = if (n==1, 1, my(f = factor(n), gpf = f[#f~,1]); sumdiv(n, d, d <= gpf));

%o a(n) = my(k = 1); while (a087133(k) != n, k++); k; \\ _Michel Marcus_, Sep 21 2014

%Y Cf. A006530, A025487, A087133, A119311, A119312.

%K nonn

%O 1,2

%A _Reinhard Zumkeller_, Aug 17 2003

%E More terms from _Reinhard Zumkeller_, May 15 2006

%E More terms from _Michel Marcus_, Sep 21 2014

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 11:59 EDT 2024. Contains 371254 sequences. (Running on oeis4.)