OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
0 is a term because 0 + 1 = 1. The result is another square.
25 is a term because 25 + 11 = 36. The result is another square.
289 is a term because 289 + 111 = 400. The result is another square.
MAPLE
f:= proc(d, q, m) local x, y;
if d < q/d then return NULL fi;
x:= ((d-q/d)/2)^2;
if x >= 10^m and x < 10^(m+1) then x else NULL fi;
end proc:
R:= 0:
for m from 1 to 20 do
q:= (10^m-1)/9;
V:= sort(convert(map(f, numtheory:-divisors(q), q, m-1), list));
R:= R, op(V);
od:
R; # Robert Israel, Aug 21 2020
PROG
(PARI) lista(limit)={for(k=0, sqrtint(limit), my(t=k^2); if(issquare(t + (10^if(t, 1+logint(t, 10), 1)-1)/9), print1(t, ", ")))}
{ lista(10^12) } \\ Andrew Howroyd, Aug 11 2020
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
José de Jesús Camacho Medina, Jun 14 2020
EXTENSIONS
Name corrected by Robert Israel, Aug 26 2020
STATUS
approved