OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..8987
MAPLE
f:= proc(d) local S, x;
S:= map(rhs@op, [msolve((x+3)^2 = 16, 10^d+1)]);
end proc:
g:= proc(n, d) local m; m:= ((n+3)^2-16)/(10^d+1)+7; m >= 10^(d-1) and m < 10^d end proc:
sort([seq](op(select(g, f(i), i)), i=2..13)); # Robert Israel, Jan 27 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved