OFFSET
1,1
EXAMPLE
a(12), divisors of 12 are 1,2,3,4,6,12, so a(12) = 121234612.
MAPLE
cat2 := proc(a, b) a*10^max(ilog10(b)+1, 1)+b ; end: A137464 := proc(n) local a, d; a := n ; for d in sort(convert(numtheory[divisors](n), list)) do a := cat2(a, d) ; od: RETURN(a) ; end: seq(A137464(n), n=1..50) ; # R. J. Mathar, Apr 25 2008
CROSSREFS
KEYWORD
easy,nonn,base,less
AUTHOR
Ctibor O. Zizka, Apr 19 2008
EXTENSIONS
Definition corrected by Omar E. Pol, Apr 21 2008
More terms from R. J. Mathar, Apr 25 2008
STATUS
approved