OFFSET
1,2
COMMENTS
LINKS
Indranil Ghosh, Table of n, a(n) for n = 1..50000
EXAMPLE
For n=12; divisors of 12: 1,2,3,4,6,12; a(12)=1264321 (reverse concatenation).
MAPLE
a:= n-> parse(cat(sort([numtheory[divisors](n)[]], `>`)[])):
seq(a(n), n=0..40); # Alois P. Heinz, Dec 31 2020
MATHEMATICA
Table[FromDigits@ Flatten@ Map[IntegerDigits, Reverse@ Divisors@ n], {n, 34}] (* Michael De Vlieger, Jan 23 2017 *)
PROG
(PARI) a(n) = {s = ""; fordiv(n, d, s = concat(Str(d), s)); eval(s); } \\ Michel Marcus, Feb 16 2015
(Python)
from sympy import divisors
def a(n): return int("".join(str(d) for d in divisors(n)[::-1]))
print([a(n) for n in range(1, 35)]) # Michael S. Branicky, Dec 31 2020
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Apr 20 2010
EXTENSIONS
More terms from Charles R Greathouse IV, Apr 23 2010
Corrected by Jaroslav Krizek, Apr 26 2010
Edited by Charles R Greathouse IV, Apr 30 2010
STATUS
approved