标签：
笨办法
In[3]:= PrimeQ[Divisors[600851475143]] Divisors[600851475143] Out[3]= {False, True, True, True, True, False, False, False, False, False, False, False, False, False, False, False} Out[4]= {1, 71, 839, 1471, 6857, 59569, 104441, 486847, 1234169, 5753023, 10086647, 87625999, 408464633, 716151937, 8462696833, 600851475143} 6857
这样稍微可以看一点
In[12]:= Select[ Max[Table[If[PrimeQ[x], x], {x, #1}] &@ Divisors[600851475143]], IntegerQ] Out[12]= 6857
标签：
原文地址：http://www.cnblogs.com/shouchengcheng/p/4256807.html
