login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A227371 Numbers n such that prime(n) + reversal(prime(n)) is a square. 2
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 (list; graph; refs; listen; history; text; internal format)
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

Cf. A061231.

Sequence in context: A034961 A207637 A171444 * A117847 A057990 A272779

Adjacent sequences:  A227368 A227369 A227370 * A227372 A227373 A227374

KEYWORD

nonn,base

AUTHOR

K. D. Bajpai, Jul 08 2013

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 9 06:59 EDT 2020. Contains 333344 sequences. (Running on oeis4.)