省略[d_，list_]：=模块[{aux={}，len=Length[list]}，Do[If[list[[i]]==d，none，aux=Join[aux，{list[[i]}]]，{i，len}]；辅助]；maxomit[n_]：=省略[Max[IntegerDigits[Prime[n]]]，IntegerDigits[Prime[n]]]；convert[lis_]：=和[Reverse[lis][[i]]10^（i-1），{i，1，Length[lis]}]；表[If[PrimeQ[convert[maxomit[n]]]，Prime[n]，0]，{n，1，300}]//并集//Rest[From_约瑟 J型.M（M）.格劳(格拉乌(自动变速箱)电传电缆.锿),_,2010年2月17日]

OEIS服务器: https://oeis.org/edit/global/1693

_扎克·塞多夫(扎克塞多夫(自动变速箱)雅虎.通用域名格式),_,2005年1月27日

OEIS服务器: https://oeis.org/edit/global/139

省略[d_，list_]：=模块[{aux={}，len=Length[list]}，Do[If[list[[i]]==d，none，aux=Join[aux，{list[[i]}]]，{i，len}]；辅助]；maxomit[n_]：=省略[Max[IntegerDigits[Prime[n]]]，IntegerDigits[Prime[n]]]；convert[lis_]：=和[Reverse[lis][[i]]10^（i-1），{i，1，Length[lis]}]；表[If[PrimeQ[convert[maxomit[n]]]，Prime[n]，0]，{n，1，300}]//Union//Rest[摘自J.M.Grau（Grau（AT）telecable.es），2010年2月17日]

基础,容易的,非n,新的

省略最大数字后保持素数的素数。

23, 29, 37, 43, 53, 59, 73, 79, 83, 97, 113, 131, 137, 139, 151, 163, 173, 179, 181, 191, 193, 197, 199, 211, 233, 239, 263, 283, 293, 311, 313, 317, 331, 379, 397, 419, 431, 439, 443, 461, 463, 479, 487, 491, 503, 523, 541, 563, 593, 599, 613, 617, 619, 631

1,1

如果有多个最大数字，则省略左起第一个数字。

基础,容易的,非n

扎克·塞多夫（zakseidov（AT）yahoo.com），2005年1月27日

经核准的