输入值

单个整数。$1 \leq x \leq 10^{15}$

输出量

具有乘积的不同正整数的最大数量。$x$

例子

输入：1099511627776。输出：9.一种可能的最佳因子列表是：（1、2、4、8、16、32、64、128、4096）。

输入：127381。输出4。一种可能的最佳因子列表是：（1、17、59、127）。

与这个老问题有关。

Wolfram语言（Mathematica），52字节

Max[Length/@Cases[Subsets@Divisors@#,{a__}/;1a==#]]&

在线尝试！

@attinat节省了4个字节

这也是一个153字节的版本，用于计算1099511627776和10^15

Max[Length/@Table[s=RandomSample@Flatten[Table@@@FactorInteger[#]];Last@Select[Times@@@TakeList[s,#]&/@IntegerPartitions@Length@s,DuplicateFreeQ],5!]]+1&      

在线尝试！

的结果10^15是12

{1,2,4,5,10,16,25,40,50,100,125,250}

Wolfram语言（Mathematica），38个字节

(c=n=#;If[i∣n,n/=i,--c]~Do~{i,n};c)&

在线尝试！

贪婪算法。在较大的输入（例如）上的TIO超时1099511627776。

05AB1E，9个字节

效率很低。对于除数较大的数字，将在TIO上超时。

ÑæʒPQ}€gZ

在线尝试！

说明

Ñ          # push a list of divisors of the input
 æ         # push the powerset of that list
  ʒPQ}     # filter, keep only the lists whose product is the input
      €g   # get the length of each
        Z  # take the maximum

Perl 6、38个字节

{$!=$_;+grep {$!%%$_&&($!/=$_)},1..$_}

在线尝试！

采用贪婪的方法来选择除数。

Javascript（ES6），39个字节

f=(n,i=0)=>n%++i?n>i&&f(n,i):1+f(n/i,i)

可能到处都有一些字节可以保存。仅将贪婪算法用于这些因素。

果冻，9字节

ŒPP=³ƊƇẈṀ

在线尝试！

-1字节感谢某人

-2个字节，感谢ErikTheOutgolfer

Japt -h，13个字节

â à f_׶UÃmÊn

尝试一下

Brachylog，8个字节

f;?⟨⊇×⟩l

在线尝试！

（幼稚的方法，{~×≠l}ᶠ⌉在用消除它们之前会生成无数个带有1的解≠，因此实际上无法终止。但这不是问题，因为它是相同的字节数！）

通过输入变量获取输入，并通过输出变量获取输出。TIO的标头包含大多数代码的副本，目的是向您显示因素列表，但是如果没有它，此方法也可以很好地工作。由于先⊇给出较大的子列表，因此该谓词实际上与大多数其他答案具有相同的作用，但是由于回溯，因此无需显式生成和过滤因子的完整幂集。

            The output
       l    is the length of
    ⊇       a sublist (the largest satisfying these constraints)
f           of the factors of
            the input
 ; ⟨  ⟩     which
     ×      with its elements multiplied together
  ?         is the input.

Scala，77个字节

def f(n:Long)={var(m,c,i)=(n,1,2L);while(i<=m){if(m%i==0){m/=i;c+=1};i+=1};c}

在线尝试！

盖亚，10 9个字节

Π=
dz↑⁇(l

在线尝试！

遵循与其他地方相同的“算法”-过滤除数幂集最长的乘积，其乘积等于该数字并返回其长度。

	| helper function
Π=	| is prod(list)==n (implicit)?
	|
	| main function; implicitly takes n
dz	| divisor powerset (in decreasing order of size)
  ↑⁇	| filter by helper function
    (l	| take the first element and take the length (implicitly output)

蛤，15字节

p}_`nq#:;qQ@s~Q

TIO链接即将推出（当丹尼斯拉出时）

基本上是@Emigna的05AB1E解决方案的端口。

说明

                - Implicit Q = first input
p               - Print...
 }              - The last element of...
  _             - Sorted...
   `nq          - Lengths of... (map q => q.len)
           @s   - Items in powerset of
             ~Q - Proper divisors of Q
      #         - Where... (filter)
        ;q      - Product of subset
       :        - Equals...
          Q     - Q

C＃（Visual C＃交互式编译器），54字节

int f(int n,int i=0)=>n%++i<1?1+f(n/i,i):n>i?f(n,i):0;

使用与@vrugtehagel和@JoKing的答案相同的方法。

在线尝试！

Ruby，34个字节

显然，在该数量上会超时，但如果在另一台计算机上有足够的时间，最终将超时。

->n{(1..n).count{|e|n%e<1?n/=e:p}}

在线尝试！