OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
smn2[n_]:=Module[{n2=n^2, idn=IntegerDigits[n], k=1}, While[Take[ IntegerDigits[ k*n2], Length[idn]] != idn, k++]; k*n2]; Array[smn2, 40] (* Harvey P. Dale, Jun 07 2016 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 22 2002
EXTENSIONS
Corrected and extended by Sascha Kurz, Jan 04 2003
STATUS
approved