SYNOPSYS光学设计软件|ASAP光学设计软件|SOLIDWORKS 三维建模设计软件|RP Fiber Power仿真设计软件|武汉墨光科技有限公司

解决方案

炫酷的Wolfram 语言--永远是质数的铅笔

Wolfram公司并行计算部的总监 Roman 从 Mathsgear 买了套铅笔。发现这铅笔上的数字是质数，而且如果你从左边开始削铅笔的话，无论怎么削，剩下的数字总是质数，一直到最后一位数字 7。这很有意思吧，而且是一份很好的礼物噢，不管是小朋友，还是大朋友！下面是他用 Wolfram 语言编写的所有“可截断的质数”：

TruncatablePrimes[p_Integer?PrimeQ] :=

With[{digits = IntegerDigits[p]},

{p, TruncatablePrimes /@ (FromDigits /@

(Prepend[digits, #] & /@ Range[9]))}

];TruncatablePrimes[p_Integer] := {}

原来这支铅笔上的质数是最大的：

In[7]:= Take[Sort[Flatten[TruncatablePrimes

/@ Range[9]]], -5]

Out[7]= {9918918997653319693967,

57686312646216567629137,

95918918997653319693967,

96686312646216567629137,

357686312646216567629137}

这是十进制的质数，想知道如何产生其他进制的质数吗？加入墨光官方技术交流群 (QQ群:548167655)了解更多吧！

免费获取 Mathematica 的使用

Mathematica 是 Wolfram 独创的旗帜产品；旨在为研发和教育工作提供技术计算平台。基于 Wolfram 语言，Mathematica 与其他核心 Wolfram 产品可以百分百兼容。

如果您需要使用 Mathematica 技术计算平台做研发和教育，即日起：扫描上方二维码或者通过墨光官网联系工作人员即可免费获取 Mathematica 安装包及一个月免费使用（仅限前200名）。欢迎加入Mathematica软件交流学习QQ群548167655。