OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
EXAMPLE
Divisors of 12 are 1,2,3,4,6,12, so a(12)=2346.
MAPLE
A037279 := proc(n) local dvs ; if isprime(n) or n = 1 then n; else dvs := [op(numtheory[divisors](n) minus {1, n} )] ; dvs := sort(dvs) ; cat(op(dvs)) ; fi ; end: seq(A037279(n), n=1..80) ; # R. J. Mathar, Jul 23 2007
MATHEMATICA
f[n_]:=If[PrimeQ[n], n, FromDigits[Flatten[IntegerDigits/@Rest[ Most[ Divisors[n]]]]]]; Join[{1}, Array[f, 50, 2]] (* Harvey P. Dale, Sep 24 2012 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Erich Friedman
Edited by N. J. A. Sloane, Aug 29 2008 at the suggestion of R. J. Mathar
STATUS
approved