登录
OEIS由OEIS基金会的许多慷慨捐赠者.

 

标志
提示
(来自的问候整数序列在线百科全书!)
A068492号 在每个数字被其平方替换后保持素数的素数。 6
11, 13, 17, 19, 71, 73, 89, 101, 103, 107, 131, 137, 149, 167, 173, 191, 197, 199, 223, 229, 233, 283, 307, 311, 313, 331, 337, 359, 383, 401, 433, 439, 461, 463, 491, 523, 569, 593, 631, 641, 647, 659, 709, 733, 743, 773, 809, 823, 859, 907, 911, 919, 947 (列表;图表;参考;;历史;文本;内部格式)
抵消
1,1
链接
柴华武,n=1..10000时的n,a(n)表(扎克·塞多夫提供的n=1.785)
例子
当素数89的每个数字被它的平方替换时,结果是6481,一个素数。因此89是序列的一个项。
数学
f[n_]:=块[{a=整数位数[n],b=“”,k=1,l},l=长度[a];而[k<l+1,b=StringJoin[b,ToString[a[[k]]^2];k++];ToExpression[b]];Do[If[PrimeQ[f[Prime[n]]],打印[Prime[n]],{n,1,150}]
选择[Prime[范围[200]]、PrimeQ[FromDigits[压扁[整数位数/@(整数位数[#]^2)]]&](*哈维·P·戴尔2023年12月31日*)
黄体脂酮素
(Magma)数字方形:=func<n|StringToInteger(&cat[IntegerToString(a):a in Reverse([d^2:d in Intseq(n)])>;IsA068492:=func<p|IsPrime(数字平方(p))>;[p:p在PrimesUpTo(1000)|IsA068492(p)中];//Klaus Brockhaus,2011年3月5日
(PARI)
digsquare(n)={fromdigits(concat(应用(d->if(d,数字(d^2),[0]),数字(n)))}
ok(n)={互素(n)&&互素(digsquare(n))}\\安德鲁·霍罗伊德2018年2月27日
(Python)
从sympy导入isprime,nextprime
n=2
当n<8000时:
t=int(''.join(str(i)**2)表示列表中的i(str(n)))
如果是质数(t):
打印(n)
n=下一素数(n)
#Abhiram R Devesh公司2015年2月9日
交叉参考
关键词
基础,非n
作者
约瑟夫·佩伊2002年3月11日
扩展
编辑和扩展人罗伯特·威尔逊v2002年3月19日
复制a(1)-a(215)从b文件中删除安德鲁·霍罗伊德2018年2月27日
状态
经核准的

查找|欢迎光临|维基|注册|音乐|地块2|演示|索引|浏览|更多|网络摄像头
贡献新序列。或评论|格式|样式表|转换|超级搜索|最近
OEIS社区|维护人员OEIS基金会。

许可协议、使用条款、隐私政策。.

上次修改时间:美国东部夏令时2024年3月28日09:04。包含371240个序列。(在oeis4上运行。)