OFFSET
1,2
LINKS
David A. Corneth, Table of n, a(n) for n = 1..81
EXAMPLE
PROG
(PARI) is(n, {u = 10^5}) = {my(e = eval(concat(concat([""], divisors(n))))); if(e % n != 0, return(0); ); my(oldu = u, s, d); u = min(e, u); s = ""; d = divisors(factor(e, u)); d = select(x -> x <= u, d); for(i = 1, #d, s=concat(s, Str(d[i])); if(eval(s) == e, return(1)); if(eval(s) > e, return(0)); ); is(n, 10*oldu); } \\ David A. Corneth, Oct 10 2022, adapted from Michel Marcus' isok at A175252
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Oct 10 2022
EXTENSIONS
More terms from David A. Corneth, Oct 10 2022
STATUS
approved