存不存在一个数，从个位开始，每往前加一个数字之后所得的数依然是素数？ 第1页
1
GalAster 网友的相关建议:
这样的素数叫做左截断素数[1], 其中十进制中最大的是 357686312646216567629137, 十进制中一共有4256个这样的素数
LeftTruncatablePrimes [ 1 ] := Select [ Range [ 9 ], PrimeQ ] LeftTruncatablePrimes [ n_ ] := LeftTruncatablePrimes [ n ] = Block [ { list = Outer [ List , Range [ 1 , 9 ], LeftTruncatablePrimes [ n - 1 ]]}, Select [ #1 * 10 ^ ( n - 1 ) + #2 & @@@ Flatten [ list , 1 ], PrimeQ ] ] 同理可以定义右截断素数, 共79个, 最大的是 73939133
RightTruncatablePrimes [ 1 ] := Select [ Range [ 9 ], PrimeQ ] RightTruncatablePrimes [ n_ ] := RightTruncatablePrimes [ n ] = Block [ { list = Outer [ List , RightTruncatablePrimes [ n - 1 ], { 1 , 3 , 6 , 7 , 8 , 9 }]}, Select [ 10 #1 + #2 & @@@ Flatten [ list , 1 ], PrimeQ ] ] 参考
1
相关话题
证明了黎曼猜想就能马上得到素数公式吗？存不存在一个数，从个位开始，每往前加一个数字之后所得的数依然是素数？
证明了黎曼猜想就能马上得到素数公式吗？
存不存在一个数，从个位开始，每往前加一个数字之后所得的数依然是素数？
求一个整数的所有素数因子的思路是什么？
只用高中数学知识水平能解出哥德巴赫猜想吗？
证明了黎曼猜想就能马上得到素数公式吗？
到底有没有素数公式？素数公式的意义有多大？
素数的 Willans 公式是否正确？
请问2^2^2^2+3^3^3^3是否为素数呢？
相关的话题
为什么 1 不能被认为是质数？10的100次方内的素数的中位数在什么范围内，你可以估算到多高的精度?
为什么任何整数除以2或5都能除尽，而不一定能被其他质数除尽？
黎曼猜想具体是如何推出素数定理的广义形式的？
10的100次方内的素数的中位数在什么范围内，你可以估算到多高的精度?
质数集P与自然数集N等势吗?
根号素数的有限组合是否一定是无理数?
为什么说尾数为1、3、7、9的素数个数是基本相同的？
「素数」和「合数」算反义词吗？
到底有没有素数公式？素数公式的意义有多大？
级数求积：是否有一般的收敛判别法？以及实例∏[p是素数] p/(p-1) 是否收敛?
如何证明任意比2更大的偶数都是两个素数之和？
到底有没有素数公式？素数公式的意义有多大？
「素数」和「合数」算反义词吗？
如何证明素数有无穷多个？
请通俗易懂地讲讲什么是素数（质数）？
素数的 Willans 公式是否正确？
如何证明任意比2更大的偶数都是两个素数之和？
如何证明任意比2更大的偶数都是两个素数之和？
两相邻素数的最大间距能够多大？
「素数」和「合数」算反义词吗？
为什么任何整数除以2或5都能除尽，而不一定能被其他质数除尽？
为什么二是质数，我感觉它好委屈啊？
站在一个无穷大的围棋/五子棋盘上的任意格点上，能够看到的格点都放上黑棋，黑棋占格点比例多少？
只用高中数学知识水平能解出哥德巴赫猜想吗？
有没有哪个素数可以以多种方式写成两个正整数的平方和？
威尔逊定理中 p=4是一个例外，为什么？是否存在其他非质数的例外？
「素数」和「合数」算反义词吗？
如何证明存在 1000 个连续的正整数中恰好有五个素数？
只用高中数学知识水平能解出哥德巴赫猜想吗？