

A069707


Squares with property that swapping first and last digits also gives a square.


2



1, 4, 9, 100, 121, 144, 169, 400, 441, 484, 676, 900, 961, 1521, 1681, 1764, 4624, 4761, 5625, 9409, 10000, 10201, 10404, 10609, 11881, 12321, 14161, 14641, 16641, 17161, 19321, 19881, 40000, 40401, 40804, 41209, 43264, 44944, 47524, 49284
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..40.


EXAMPLE

1764 and 4761 both are squares hence both are members.


MATHEMATICA

Do[t = IntegerDigits[n^2]; u = t; u[[1]] = t[[ 1]]; u[[ 1]] = t[[1]]; t = FromDigits[u]; If[ IntegerQ[ Sqrt[t]], Print[n^2]], {n, 1, 300}]


CROSSREFS

Cf. A069706, A069708.
Sequence in context: A115690 A115689 A061457 * A129967 A182020 A087553
Adjacent sequences: A069704 A069705 A069706 * A069708 A069709 A069710


KEYWORD

nonn,base


AUTHOR

Amarnath Murthy, Apr 08 2002


EXTENSIONS

Edited and extended by Robert G. Wilson v
Edited by N. J. A. Sloane, Jan 20 2009


STATUS

approved



