login
Highly factorable numbers: numbers with a record number of proper factorizations.
34

%I #31 Jan 13 2020 13:54:19

%S 1,4,8,12,16,24,36,48,72,96,120,144,192,216,240,288,360,432,480,576,

%T 720,960,1080,1152,1440,2160,2880,4320,5040,5760,7200,8640,10080,

%U 11520,12960,14400,15120,17280,20160,25920,28800,30240,34560

%N Highly factorable numbers: numbers with a record number of proper factorizations.

%C First differs from A045783 and A330972 in lacking 60.

%C Indices of records in A028422 or A001055.

%H Amiram Eldar, <a href="/A033833/b033833.txt">Table of n, a(n) for n = 1..235</a> (terms 1..118 from E. R. Canfield et al.)

%H E. R. Canfield, P. Erdős, C. Pomerance, <a href="http://renyi.hu/~p_erdos/1983-11.pdf">On a problem of Oppenheim concerning Factorisatio Numerorum</a>, J. Number Theory 17 (1983) 1-28, Table 1, column "n".

%H Jun Kyo Kim, <a href="https://doi.org/10.1006/jnth.1998.2238">On highly factorable numbers</a>, Journal Of Number Theory, Vol. 72, No. 1 (1998), pp. 76-91.

%H Arnold Knopfmacher and Michael Mays, <a href="https://www.mathematica-journal.com/issue/v10i1/Factorizations.html">Ordered and unordered factorizations of integers</a>, Mathematica Journal, Vol. 10, No. 1 (2006), pp. 72-89.

%F A001055(a(n)) = A272691(n). - _Gus Wiseman_, Jan 13 2020

%e From _Gus Wiseman_, Jan 13 2020: (Start)

%e Factorizations of the initial terms:

%e () (4) (8) (12) (16) (24) (36) (48)

%e (2*2) (2*4) (2*6) (2*8) (3*8) (4*9) (6*8)

%e (2*2*2) (3*4) (4*4) (4*6) (6*6) (2*24)

%e (2*2*3) (2*2*4) (2*12) (2*18) (3*16)

%e (2*2*2*2) (2*2*6) (3*12) (4*12)

%e (2*3*4) (2*2*9) (2*3*8)

%e (2*2*2*3) (2*3*6) (2*4*6)

%e (3*3*4) (3*4*4)

%e (2*2*3*3) (2*2*12)

%e (2*2*2*6)

%e (2*2*3*4)

%e (2*2*2*2*3)

%e (End)

%t nn=100;

%t facs[n_]:=If[n<=1,{{}},Join@@Table[Map[Prepend[#,d]&,Select[facs[n/d],Min@@#>=d&]],{d,Rest[Divisors[n]]}]];

%t qv=Table[Length[facs[n]],{n,nn}];

%t Table[Position[qv,i][[1,1]],{i,qv//.{foe___,x_,y_,afe___}/;x>=y:>{foe,x,afe}}] (* _Gus Wiseman_, Jan 13 2020 *)

%Y All terms belong to A025487 as well as to A330972.

%Y The corresponding records are A272691.

%Y The strict version is A331200.

%Y Factorizations are A001055, with image A045782 and complement A330976.

%Y Cf. A028422, A033834, A045778, A045783, A330973, A330998, A331049, A331050.

%K nonn

%O 1,2

%A _Jeff Burch_