OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..41
EXAMPLE
59645687 * 59645693 = 35576083//35576091, where // denotes concatenation.
MAPLE
f:= proc(d) local R;
R:= map(rhs@op, {msolve(x^2=17, 10^d+1)});
R:= map(t -> (t-3) mod (10^d+1), R);
op(select(proc(t) local m; m:= (t*(t+6)-8)/(10^d+1)+8; m >= 10^(d-1) and m < 10^d end proc, R));
end proc;
sort(convert({seq(f(i), i=1..50)}, list)); # Robert Israel, Jan 17 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
EXTENSIONS
More terms from Robert Israel, Jan 17 2017
STATUS
approved