A382327 Numbers with a record ratio of proper factorizations to prime factors (counted with multiplicity).
4, 8, 12, 24, 36, 48, 60, 72, 120, 144, 180, 240, 288, 360, 480, 576, 720, 1080, 1440, 2160, 2520, 2880, 3600, 4320, 5040, 7200, 7560, 8640, 10080, 14400, 15120, 20160, 25200, 30240, 40320, 50400, 60480, 80640, 90720, 100800, 120960, 151200, 181440, 201600
Offset: 1
Keywords
Examples
a(1) = 4: |{{2, 2}}| / |{2, 2}| = 1/2. a(2) = 8: |{{2, 2, 2}, {2, 4}}| / |{2, 2, 2}| = 2/3. a(3) = 12: |{{2, 2, 3}, {2, 6}, {3, 4}}| / |{2, 2, 3}| = 3/3.
Programs
-
PARI
f_count(x, f=List())={my(r=x/if(#f, vecprod(Vec(f)), 1)); if(r==1, return(if(#f, 1, 0))); my(d, c=0); fordiv(r, d, if(d==1 || d==x || (#f && d
mx, mx=m; print1(x, ", ")))
Comments