OFFSET
0,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
EXAMPLE
a(4) = 40 as 40 - 4 = 36 = 6^2; a(9)= 65 as 65- 56 = 9 = 3^2.
MATHEMATICA
nzsQ[n_]:=Module[{c=n-IntegerReverse[n]}, c!=0&&IntegerQ[Sqrt[c]]]; Select[ Range[3000], nzsQ] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Jun 05 2016 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Amarnath Murthy, Apr 23 2001
EXTENSIONS
More terms from Patrick De Geest, May 28 2001
STATUS
approved