OFFSET
1,1
COMMENTS
Every term ends in 0 or 4.
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
4 - 4*1 = 0 = 0^2;
97344 - 4*11111 = 52900 = 230^2;
462400 - 4*111111 = 17956 = 134^2.
MAPLE
P:=proc(q, h) local n; for n from 1 to q do
if type(sqrt(n^2-h*(10^(ilog10(n^2)+1)-1)/9), integer) then print(n^2);
fi; od; end: P(10^9, 4);
MATHEMATICA
sol[k_] := Block[{x, e = IntegerLength@k, d = Divisors@ k}, Union[ #+k/# & /@ Select[ Take[d, Ceiling[ Length@d/2]], EvenQ[x = #+k/#] && IntegerLength[ x^2/4] == e &]]^2/4]; r[n_] := 4 (10^n-1)/9; Flatten[sol /@ r /@ Range[12]] (* Giovanni Resta, May 18 2016 *)
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
Paolo P. Lava, May 18 2016
EXTENSIONS
a(16)-a(19) from Giovanni Resta, May 18 2016
STATUS
approved