|
%I #34 Aug 24 2019 10:40:34
%S 1,6,12,24,30,60,120,180,360,720,840,1080,1260,1680,2160,2520,4320,
%T 5040,7560,10080,12600,15120,25200,30240,45360,50400,60480,75600,
%U 90720,110880,120960,151200,226800,277200,302400,453600,604800,665280,831600,907200
%N Numbers that set new records for the most ordered prime factorizations.
%C If a prime is a divisor of a(n) it is also a divisor of a(n+1).
%C A260987(n) = A008480(a(n)). - _Reinhard Zumkeller_, Nov 18 2015
%C Hernane and Nicolas named these numbers h-champion numbers (the function h(n) is A008480). - _Amiram Eldar_, Aug 20 2019
%H Amiram Eldar, <a href="/A260633/b260633.txt">Table of n, a(n) for n = 1..2011</a> (terms 1..80 from Reinhard Zumkeller)
%H Marc Deléglise, <a href="http://math.univ-lyon1.fr/~deleglis/Calculs/hn21.txt">Tables des 785 premiers champions de la fonction h(n)</a>, <a href="http://math.univ-lyon1.fr/homes-www/nicolas/table785.pdf">alternative link (pdf format)</a>.
%H Mohand-Ouamar Hernane and Jean-Louis Nicolas, <a href="https://doi.org/10.1007/s11139-007-9028-6">Grandes valeurs du nombre de factorisations d’un entier en produit ordonné de facteurs premiers</a>, The Ramanujan Journal, Vol. 14, No. 2 (2007), pp. 277-304, <a href="http://math.univ-lyon1.fr/homes-www/nicolas/hernane2.pdf">alternative link</a>.
%e See A260987.
%t t = {1}~Join~Array[Multinomial @@ Last@ Transpose@ FactorInteger@ # &, 5*10^6, 2]; m = {1}; a = {1}; Do[If[t[[k]] > Max@ m, AppendTo[m, t[[k]]]; AppendTo[a, k]], {k, 2, Length@ t}]; a (* _Michael De Vlieger_, Nov 12 2015, after _Olivier Gérard_ at A008480 *)
%o (Haskell)
%o a260633 n = a260633_list !! (n-1)
%o -- where a260633_list is defined in A260987.
%o -- _Reinhard Zumkeller_, Nov 18 2015
%Y Record high values of A008480.
%Y Cf. A260987.
%K nonn
%O 1,2
%A _Gordon Hamilton_, Nov 11 2015
%E More terms from _Michael De Vlieger_, Nov 12 2015
|
