OFFSET
1,2
COMMENTS
See A059799 for the sequence of prime numbers.
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..340
EXAMPLE
a(2)=10: prime(10)=29. Reversing digits gives 92. 29+92 = 121 = 11^2.
MAPLE
with(StringTools):
K := proc(n) local a, b, d, e; a :=ithprime(n): b:=parse(Reverse(convert((a), string))): d:=a+b; e:=evalf(sqrt(d)); if e=floor(e) then RETURN (n) fi:
end:
seq(K(n), n=1..100000); # K. D. Bajpai, Jul 08 2013
with(StringTools):
K:=proc()local n, a, b, c, d, e; c:=1; for n from 1 to 2000000 do; a:=ithprime(n); b:=parse(Reverse(convert((a), string))); d:=a+b; e:=evalf(sqrt(d)); if e=floor(e) then lprint(c, n); c:=c+1; fi; od; end: K(); # K. D. Bajpai, Jul 08 2013
MATHEMATICA
Select[Range[50000], IntegerQ[Sqrt[Prime[#]+IntegerReverse[Prime[#]]]]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Jan 24 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jul 08 2013
STATUS
approved