A227371-OEIS公司

A227371号

数n，使素数（n）+反转数（素数（n））为正方形。

1, 10, 15, 23, 56, 89, 2279, 2581, 2683, 6329, 7845, 7942, 26074, 26146, 26290, 26651, 26871, 27080, 27960, 28687, 28898, 29396, 29539, 29824, 30038, 30333, 30404, 30472, 30955, 31025, 31097, 31168, 32076, 32143, 32429, 33502, 33564, 41608, 42011, 42148, 42696

(列表;图表;参考;听;历史;文本;内部格式)

抵消

1,2

请参见A059799号对于素数序列。

链接

K.D.Bajpai，n=1..340时的n，a（n）表

例子

a（2）=10:素数（10）=29。倒数等于92。29+92 = 121 = 11^2.

MAPLE公司

使用（StringTools）：

K:=过程（n）局部a，b，d，e；a:=ithprime（n）：b:=parse（反向（转换（（a），字符串））：d:=a+b；e： =evalf（sqrt（d））；如果e=楼层（e），则返回（n）fi：

结束时间：

seq（K（n），n=1..100000）#K.D.Bajpai2013年7月8日

使用（StringTools）：

K： =proc（）局部n，a，b，c，d，e；c： =1；n从1到2000000 do；a： =第i素数（n）；b： =解析（反向（转换（（a），字符串））；d： =a+b；e： =evalf（sqrt（d））；如果e=楼层（e），则lprint（c，n）；c： =c+1；fi；od；结束：K（）#K.D.Bajpai2013年7月8日

数学

选择[Range[5000]，IntegerQ[Sqrt[Prime[#]+IntegerReverse[Prime[#]]]&]（*程序使用Mathematica版本10*中的IntegerReverse函数）(*哈维·P·戴尔2016年1月24日*）

交叉参考

囊性纤维变性。A061231号.

上下文中的序列：A034961号 A207637型 A171444号*A057990号 A272779号 A173477号

相邻序列：A227368号 A227369号 A227370型*A227372号 A227373号 A227374美元

关键词

非n,基础

作者

K.D.Bajpai2013年7月8日

状态

经核准的