|
| |
| |
|
|
|
20, 30, 50, 70, 101, 103, 107, 109, 110, 130, 170, 190, 200, 203, 209, 230, 290, 300, 301, 307, 310, 370, 401, 403, 407, 410, 430, 470, 500, 503, 509, 530, 590, 601, 607, 610, 670, 700, 701, 703, 709, 710, 730, 790, 803, 809, 830, 890, 907, 970, 1001, 1003, 1007, 1009, 1010, 1013, 1027, 1030
(列表；图表；参考；听；历史；文本；内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
MAPLE公司
|
N： =4:#生成数字<=N的所有术语
ZLO:=proc（d）#生成d位奇数无零数集
选项记忆；
如果d=1，则{1,3,5,7,9}
其他的
映射（t->seq（t+x*10^（d-1），x=1..9），ZLO（d-1））
fi（菲涅耳）
结束进程：
addzeros:=proc（x，d）#d-将0插入x形成的数字
局部L、n、R；
五十： =换算（x，基数，10）；
n： =nops（L）；
R： =映射（t->[op（t），d]，组合[选择]（d-1，n-1））；
seq（加上（L[i]*10^（r[i]-1），i=1..n），r=r）；
结束进程：
Z[1]：={2,3,5,7}：
对于从2到N-1的i，执行Z[i]：=选择（isprime，ZLO（i））od：
`并集`（seq（seq（映射（加零，Z[i]，d），i=1..d-1），d=2..N））；
#如果使用Maple 11或更早版本，请取消注释下一行
|
|
|
数学
|
ss={}；Do[id=整数位数[p]；如果[Min[id]<1&&PrimeQ[FromDigits[Delete[id，Position[id，0]]]，ss={ss，p}]，{p，20，2000}]；压扁[ss]
选择[Range[1200]，DigitCount[#，10，0]>0&&PrimeQ[FromDigits[DeleteCase[IntegerDigits[#]，0]]&](*哈维·P·戴尔2024年1月1日*）
|
|
|
黄体脂酮素
|
（PARI）是（n）=我的（d=数字（n），e=选择（x->x，d））#e<#d&&i素数（来自数字（e））\\查尔斯·格里特豪斯四世2015年3月19日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
经核准的
|
| |
|
|
