3 ms·
This is one of those puzzles that just begs you to use Mathematica: In[20]:= Select[Map[FromDigits, Partition[RealDigits[N[E, 500], 10][[1]], 10, 1]], PrimeQ][
by cschmidt 13y ago
This is one of those puzzles that just begs you to use Mathematica:
In[20]:= Select[Map[FromDigits, Partition[RealDigits[N[E, 500], 10][[1]], 10, 1]], PrimeQ][[1]]
Out[20]= 7427466391
- 001sky 13y agorelated: http://discuss.fogcreek.com/joelonsoftware/default.asp?cmd=show&ixPost=160966&ixReplies=23 http://discuss.fogcreek.com/joelonsoftware/default.asp?cmd=s...