搜索： a007500-编号：a007500
|
| |
| |
|
|
|
353359367, 193319491951, 334733593361, 344934573461, 346734693491, 732173317333, 902990419043, 104591046310477, 133091331313327, 141591417314177, 146571466914683, 150131501715031, 154431545115461
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
配方奶粉
|
|
|
|
程序
|
（PARI）用于（i=19999，isprime（eval（p=Str（质数（i），质数（i+1），质素（i+2）））和isprime
|
|
|
关键词
|
基础,非n
|
|
|
作者
|
Jonathan vos Post和M.F.哈斯勒2009年11月10日
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
3, 7, 9, 7, 49, 33, 169, 7, 7, 207, 237, 91, 313, 261, 273, 79, 49, 2901, 51, 441, 193, 9, 531, 289, 1141, 67, 909, 331, 753, 2613, 657, 49, 4459, 603, 1531, 849, 2049, 259, 649, 2119, 1483, 63, 6747, 519, 3133, 937, 1159, 1999, 6921, 2949, 613, 4137, 1977, 31, 483, 883, 8553, 12117, 1009, 4347, 733
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
例子
|
3+10^1=13，13和31是具有对称数字的对称素数；
7+10^2=107、107和701是具有对称数字的对称素数；
9+10^3=1009、1009和9001是具有对称数字的对称素数。
|
|
|
MAPLE公司
|
revdigs:=proc（n）局部L，i；
五十： =换算（n，基数，10）；
加（L[-i]*10^（i-1），i=1..nops（L））
结束进程：
f： =proc（n）局部k，m；
对于k从3乘2 do
m： =k+10^n；
如果是isprime（m）和isprim（revdigs（m）），则返回k fi
日
结束进程：
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
澄清了定义，更正了a（28），增加了更多术语罗伯特·伊斯雷尔2017年11月9日
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
2, 11, 101, 1021, 1201, 110221, 111211, 112111, 120121, 121021, 122011, 1000211, 1010201, 1020101, 1022011, 1022201, 1101211, 1102111, 1102201, 1111021, 1112011, 1120001, 1120121, 1120211, 1121011, 1201021, 1201111, 1210211, 1212121, 1221221, 10002121
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
除开头2外的所有术语均以数字1开头和结尾。
|
|
|
链接
|
|
|
|
程序
|
（PARI）允许=Vec（“012”）；对于prime（p=1，默认值（primelimit），设置减号（Set（Vec（Str（p））），允许）&next；isprime（第一人称）(A004086号（p） ）&print1（p“，”）/*更好地使用下面效率更高的代码*/
（PARI）a（n=50，list=0，L=[0,1,2]，needpal=1）={for（d=1，1e9，u=vector（d，i，10^（d-i））~；forvec（v=向量（d，i，[1+（i==1&！L[1]），#L]），isprime（t=向量（d，i，L[v[i]]）*u）|next；needpal&！isprime(A004086号（t） ）&next；列表&打印1（t“，”）；n--||return（t））}\\M.F.哈斯勒2011年11月6日
（Magma）[p:p in PrimesUpTo（10^8）| Set（Intseq（p））subset[0..2]and IsPrime（Seqint（Reverse（Intseque（p）））]//布鲁诺·贝塞利2011年11月7日
（Python）
来自itertools导入计数，islice，product
从sympy导入isprime
定义A199302号_gen（）：如果isprime（n）和isprime（int（str（n）[：：-1]），则return（n表示n in（int（t+''.join（s））表示l in count（0）表示t in'12'表示s in product（'012'，repeat=l））
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
11, 101, 1061, 1601, 10061, 10601, 11161, 16001, 16061, 16111, 16661, 101611, 106661, 116101, 166601, 1011601, 1016011, 1016611, 1061101, 1066111, 1106101, 1110611, 1111661, 1116601, 1160111, 1160611, 1166101, 1600061, 1611161, 1616161, 1660661, 1661111, 10011101, 10100161, 10106111
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
所有术语以数字“1”开头和结尾。这个事实在给定的PARI程序中使用。
|
|
|
链接
|
|
|
|
程序
|
（PARI）a（n=50，list=0，L=[0，1，6]）={对于（d=1，1e9，my（t，u=向量（d-1，i，10^（d-i））~，o=10^d+1）；对于vec（v=向量（#u，i，[1，#L]），isprime（t=o+向量（#u，i，L[v[i]]）*u）|next；isprime(A004086号（t） ）||next；列表&打印1（t“，”）；n--||return（t））}\\M.F.哈斯勒2011年11月7日
（Magma）[p:p in PrimesUpTo（10^8）| Set（Intseq（p））subset[0，1，6]and IsPrime（Seqint（Reverse（Intseque（p）））]//布鲁诺·贝塞利2011年11月7日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
3, 11, 13, 31, 101, 113, 131, 311, 313, 1031, 1033, 1103, 1301, 3011, 3301, 10301, 10333, 11003, 11311, 13331, 30011, 30103, 31013, 31033, 33013, 33301, 101333, 110311, 113011, 113131, 131311, 133033, 133103, 301331, 301333, 330331, 333101, 333103, 1000033, 1001003, 1001303, 1003001
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
数学
|
扁平[{#，IntegerReverse[#]}和/@Select[FromDigits/@Tuples[{0，1，3}，7]，AllTrue[{#、IntegerInverse[#]}，PrimeQ]&]]//并集(*哈维·P·戴尔2023年9月12日*）
|
|
|
程序
|
（PARI）允许=Vec（“013”）；对于prime（p=1，默认值（primelimit），设置减号（Set（Vec（Str（p））），允许）&next；isprime（第一人称）(A004086号（p） ）&print1（p“，”）/*仅供说明：最好使用下面的代码*/
（PARI）a（n=50，list=0，L=[0,1,3]，needpal=1）={for（d=1，1e9，u=vector（d，i，10^（d-i））~；forvec（v=向量（d，i，[1+（i==1&！L[1]），#L]），isprime（t=向量（d，i，L[v[i]]）*u）|next；needpal&！isprime(A004086号（t） ）&next；列表&打印1（t“，”）；n--||return（t））}\\M.F.哈斯勒2011年11月6日
（Magma）[p:p在PrimesUpTo（10^8）| Set（Intseq（p））子集[0，1，3]和IsPrime（Seqint（Reverse（Intseq（p））））]中//布鲁诺·贝塞利2011年11月7日
（Python）
来自itertools导入产品
从sympy导入isprime
A199303型_list=[n代表n in（int（''.join（s））代表s in product（'013'，repeat=12））if isprime（n）and isprime[：：-1]）]#柴华武2015年12月17日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
11, 101, 181, 1181, 1811, 18181, 108881, 110881, 118081, 180181, 180811, 181081, 188011, 188801, 1008001, 1088081, 1110881, 1180811, 1181881, 1808801, 1880111, 1880881, 1881811, 1881881, 10001081, 10001801, 10011101, 10080011, 10101181, 10111001, 10111081, 10180801, 10188811, 10808101, 10810001
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
|
|
|
链接
|
|
|
|
程序
|
（PARI）a（n=50，L=[0，1，8]，show=0）={my（t）；对于（d=1，1e9，u=向量（d，i，10^（d-i））~；对于向量（v=向量（d，i，[1+（i==1&！L[1]），#L]），isprime（t=向量（d，i，L[v[i]]）*u）|next；isprime(A004086号（t） ）|下一个；显示&print1（t“，”）；n--|返回（t））}
（Python）
来自itertools导入产品
从sympy导入isprime
A199328号_list=[n代表n in（int（''.join（s））代表s in product（'018'，repeat=10））if isprime（n）and isprim（int（str（n）[：：-1]））]#柴华武2015年12月17日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
3, 7, 3, 3, 79, 701, 157, 1103, 11959, 1901, 10273, 92753, 17047, 11909, 144973, 327251, 99289, 92831, 90373, 309671, 1149619, 745397, 1232083, 94793, 18481, 76607, 186649, 181421, 1657561, 3746111, 7067239, 324143, 3185263, 9457181
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
链接
|
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
汉斯·哈弗曼，2005年11月8日
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
2, 151157, 353359367, 139149151157, 101103107109113, 704517045770459704817048770489, 97101103107109113127, 1519315199152171522715233152411525915263, 382138233833384738513853386338773881, 9319932393379341934393499371937793919397
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
这里的弱定义是A007500型使用了，但迄今为止已知的所有术语>2也是EmirpsA006567号（即不同于它们的反转），因此将第一项更改为13就足够了，以获得“真”emirps序列。
|
|
|
链接
|
|
|
|
程序
|
（PARI）对于（k=1,19，对于（i=0，1e9，isprime）（eval（p=concat（vector（k，j，Str（prime（i+j））））和isprime（eval；打印1（p，“，”）
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
扩展
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
11, 101, 11411, 100411, 101141, 114001, 114041, 140411, 141101, 1004141, 1010411, 1040141, 1041041, 1100441, 1114111, 1140101, 1144441, 1401401, 1410401, 1411141, 1414001, 1440011, 1444411, 1444441, 10010411, 10011101, 10041011, 10044011
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
所有术语都以数字1开头和结尾。
|
|
|
链接
|
|
|
|
MAPLE公司
|
F： =程序（d）局部A0、A4、Res、q、r；
Res:=NULL；
q： =（10^（d+1）-1）/9；
对于组合中的A0:-powerset（{$1..d-1}）do
对于组合A4:-powerset（{$1..d-1}减去A0）do
r： =q-加法（10^i，i=A0）+3*加法（10^i，i=A4）；
如果isprime（r）和isprime
Res:=Res，r
fi（菲涅耳）
od od；
雷斯
结束进程：
排序（[seq（F（d），d=1..7）]）#罗伯特·伊斯雷尔2018年5月3日
|
|
|
程序
|
（PARI）允许=Vec（“014”）；对于prime（p=1，默认值（primelimit），设置减号（Set（Vec（Str（p））），允许）&next；isprime（isprime）(A004086号（p） ）&print1（p“，”）/*更好地使用下面更高效的代码*/
（PARI）a（n=50，list=0，L=[0,1,4]，needpal=1）={for（d=1，1e9，u=vector（d，i，10^（d-i））~；forvec（v=向量（d，i，[1+（i==1&！L[1]），#L]），isprime（t=向量（d，i，L[v[i]]）*u）|next；needpal&！isprime(A004086号（t） ）&next；列表&打印1（t“，”）；n--||return（t））}\\M.F.哈斯勒2011年11月6日
（Magma）[p:p in PrimesUpTo（10^8）| Set（Intseq（p））subset[0，1，4]and IsPrime（Seqint（Reverse（Intseque（p））））]//布鲁诺·贝塞利2011年11月7日
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
|
|
|
状态
|
已批准
|
| |
|
|
| |
| |
|
|
|
2, 19, 83, 223, 277, 499, 1327, 1747, 2857, 11351, 10831, 11801, 12239, 12211, 18127, 21787, 36709, 30763, 16703
(列表;图表;参考;听;历史;文本;内部格式)
|
|
|
|
抵消
|
1,1
|
|
|
评论
|
一段时间后A007500型出现在S（p）中，如果这个数字是真正的回文，或者由它组成的对及其反转，则无限期地重复。
对于所有<=189989的素数A007500型总是出现在S（p）中，但我不能再往前走了，因为在下一个素数的序列中，出现了一个大于10^6的项，这超出了我的计算能力。无论如何，这并不令人惊讶，很可能所有序列s（p）都在有限极限内达到稳定性。更令人惊讶的是，一方面A007500型对于a（13）和a（14），以序列S（n）出现，另一方面A007500型出现在a（16）、a（17）、b（18）和a（19）的序列中。
|
|
|
链接
|
|
|
|
例子
|
序列S（223）是223、331、137、733=A007500型（38），这对于任何低于223的素数都是错误的。因此a（4）=223。
|
|
|
交叉参考
|
|
|
|
关键词
|
非n,基础
|
|
|
作者
|
Philippe LALLOUET（philip.LALLOUET（AT）orange.fr），2008年2月18日
|
|
|
状态
|
已批准
|
| |
|
搜索在0.034秒内完成
|
