OFFSET
1,1
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..1000
EXAMPLE
a(3)= 961691. It is a prime and is concatenation of 961 and 691 which are the reversals of 13^2 and 14^2, two consecutive squares.
MAPLE
with(StringTools):KD:= proc() local a, b, c, d; a:= parse(Reverse(convert(((n)^2), string))); b:=parse(Reverse(convert(((n+1)^2), string))); d:=parse(cat(a, b)) ; if isprime(d) then RETURN (d) : fi; end:seq(KD(), n=1..500);
MATHEMATICA
Select[FromDigits[Flatten[IntegerDigits/@#]]&/@Partition[IntegerReverse/@ (Range[ 400]^2), 2, 1], PrimeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 21 2020 *)
CROSSREFS
KEYWORD
nonn,base,less
AUTHOR
K. D. Bajpai, Aug 12 2013
STATUS
approved