入力

単一の整数$1 \leq x \leq 10^{15}$。

出力

積$x$を持つ明確な正の整数の最大数。

例

入力：1099511627776。出力：9.考えられる最適な要因のリスト：（1、2、4、8、16、32、64、128、4096）。

入力：127381。出力4.考えられる最適な因子のリストの1つは、（1、17、59、127）です。

この古い質問に関連しています。

Wolfram言語（Mathematica）、52バイト

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

オンラインでお試しください！

@attinatのおかげで4バイト節約

また、計算と計算を行う153バイトバージョンもあります。109951162777610^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＃Interactive Compiler）、54バイト

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

@vrugtehagelおよび@JoKingの回答と同じアプローチを使用します。

オンラインでお試しください！

ルビー、34バイト

明らかにその膨大な数でタイムアウトになりますが、別のマシンで十分な時間が与えられると最終的にタイムアウトになります。

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

オンラインでお試しください！