编辑
经核准的
购买力平价[n个_]:=模块选择[{伦恩=整数长度范围[n个10,750000]},,AllTrue[展平[表格[起始数字/@TakeList(拍摄列表)TakeDrop公司[ 整数位数[ #],n] {k个,伦恩-k个}n个,整数长度[#],{k个,伦恩-1} ]],PrimeQ]]; 选择[范围[10,750000],购买力平价&] (*哈维·P·戴尔2024年2月13日*)
ppspQ[n_]:=模块[{len=IntegerLength[n]},AllTrue[Flatten[Table[FromDigits/@TakeList[IntegerDigits[n],{k,len-k}],{k,len-1}]],PrimeQ]];选择[范围[10750000],ppspQ](*哈维·P·戴尔2024年2月13日*)
检验过的
提出
[10..中n代表n。。10000001000]如果breakIntoPrimes(n)]#汤姆·埃德加2015年2月20日
F.查波顿:sage代码的较短测试