A061231 n - the reversal of n is a nonzero square.
10, 21, 32, 40, 43, 51, 54, 62, 65, 73, 76, 84, 87, 90, 95, 98, 1030, 1100, 1140, 1210, 1250, 1320, 1360, 1430, 1470, 1540, 1580, 1650, 1690, 1760, 1870, 1980, 2031, 2101, 2141, 2211, 2251, 2321, 2361, 2431, 2471, 2541, 2581, 2651, 2691, 2761, 2871, 2981
Offset: 0
Examples
a(4) = 40 as 40 - 4 = 36 = 6^2; a(9)= 65 as 65- 56 = 9 = 3^2.
Links
- Harvey P. Dale, Table of n, a(n) for n = 0..1000
Crossrefs
Cf. A061230.
Programs
-
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 *)
Extensions
More terms from Patrick De Geest, May 28 2001