OFFSET
1,1
COMMENTS
11^2 = 121; 173^2= 29929; 3489^2= 12173121; 16262^2= 264452644; etc.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..60
MATHEMATICA
sol[nd_, ec_, ecv_] := Block[{r = Reduce[x*(1 + 10^(nd + ec)) + ecv*10^nd == y^2 && y > 0 && 10^(nd - 1) <= x < 10^nd, {x, y}, Integers]}, If[r === False, {}, y /. List@ToRules@r]]; all[nd_, ec_] := Block[{s, yy, my = 0}, Do[ s = sol[nd, ec, k]; If[s != {}, yy = Min[s]; If[my == 0, my = yy, my = Min[my, yy]]], {k, 0, 10^ec - 1}]; my]; a[n_] := Block[{v, md = 0}, While[(v = all[n, md]) == 0, md++]; v]; Array[a, 15] (* Giovanni Resta, Mar 01 2014 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Claudio Meller, Jun 07 2009
EXTENSIONS
a(5) corrected by Arkadiusz Wesolowski, Feb 28 2014
a(9)-a(19) from Giovanni Resta, Feb 28 2014
STATUS
approved