OFFSET
1,2
LINKS
Alois P. Heinz, Table of n, a(n) for n = 1..20000
MAPLE
with(numtheory):
a:= n-> parse(cat(`if`(n=1, 1,
sort([seq(i[1]$i[2], i=ifactors(n)[2])], `>`)[]))):
seq(a(n), n=1..100); # Alois P. Heinz, May 02 2016
MATHEMATICA
Table[FromDigits[Flatten[Table[#[[1]], #[[2]]]&/@ Reverse[ FactorInteger[ n]]]], {n, 60}] (* Harvey P. Dale, Aug 29 2016 *)
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
N. J. A. Sloane, Jul 19 2003
EXTENSIONS
More terms from Christopher N. Swanson (cswanson(AT)ashland.edu), Jul 22 2003
STATUS
approved