首页 > 代码库 > Project Euler--No.3
Project Euler--No.3
笨办法
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
Project Euler--No.3
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。