OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..5283
MAPLE
f:= proc(d) local S, R, r, s, m, n;
r:= 10^d+1;
S:= map(t -> rhs(op(t)), [msolve(n*(n+5)=5, r)]);
S:= select(proc(s) local t; t:= (s*(s+5)-5)/r; t+5 >= (r-1)/10 and t+5 < r-1 end proc, S);
op(sort(S));
end proc:
map(f, [$1..20]); # Robert Israel, Jun 21 2024
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Giovanni Resta, Feb 06 2006
STATUS
approved