%I#4 2012年3月31日23:00:58

%第23,29,37,43,53,59,73,79,83,7113131137139151163173179181页，

%电话：19119319719921123323926328329331313317331379397419，

%电话：4314394434614634794874915035235415635935999613617619631

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

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

%t省略[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，1300}]//Union//Rest[From _Jose Grau_，Feb 17 2010]

%K基础，简单，无

%O 1,1号机组

%A _Zak Seidov，2005年1月27日