OFFSET
1,2
LINKS
Robert Israel, Table of n, a(n) for n = 1..368
MAPLE
bcat:= proc(n) option remember;
local r;
r:= procname(n-1);
n*10^(1+ilog10(r))+r
end proc:
bcat(1):= 1: bcat(0):= 0:
f:= proc(n) local r, rm, d, w;
r:= bcat(n-1);
rm:= r mod n;
if rm = 0 then return r fi;
for d from 1 do
w:= -10^d*rm mod n;
if w < 10^d then return 10^d*r + w fi
od;
end proc:
map(f, [$1..20]); # Robert Israel, Jul 30 2026
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Feb 23 2003
EXTENSIONS
Corrected and extended by Antonio G. Astudillo (afg_astudillo(AT)lycos.com), Jul 04 2003
STATUS
approved