OFFSET
1,2
COMMENTS
First differs from A037279 at a(20).
EXAMPLE
Divisors of 20 are 1,2,4,5,10,20, so a(20)=24501.
PROG
(PARI) a(n) = if (isprime(n) || (n==1), return (n)); my(d=divisors(n), list=List()); for (i=2, #d-1, my(dd=digits(d[i])); forstep (j=#dd, 1, -1, listput(list, dd[j]))); fromdigits(Vec(list)); \\ Michel Marcus, Mar 09 2023
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Tyler Busby, Mar 09 2023
STATUS
approved