OFFSET
1,1
COMMENTS
a(58) > 10^1000 if it exists. - Robert Israel, Jan 14 2025
EXAMPLE
2772 is a member as it is divisible by 77.
MAPLE
goodpali:= proc(n, d) local L; L:= convert(n, base, 10); nops(L)=d and L = ListTools:-Reverse(L) end proc:
f:= proc(d) # terms with d digits
local ex, j, S, W;
S:= {};
for j from 1 to 9 do
ex:= j * (10^(d-1)+1);
W:= select(w -> ex mod w = 0, {$ ceil(ex/10^(d-2)) .. floor(ex/10^(d-3))});
S:= S union map(t -> 10*t + ex, select(goodpali, map(w -> ex/w, W), d-2));
od;
op(convert(S, list))
end proc:
seq(f(d), d=3..5); # Robert Israel, Jan 14 2025
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Sep 29 2003
EXTENSIONS
More terms from David Wasserman, Aug 04 2005
a(47)-a(57) from Robert Israel, Jan 14 2025
STATUS
approved
