OFFSET
1,3
EXAMPLE
Divisors of 12 are 1,2,3,4,6,12, so 12 -> 2346 = 2*1173 -> 1173 = a(12).
MAPLE
with(numtheory):ds:=proc(s) local j: RETURN(add(s[j]*10^(j-1), j=1..nops(s))):end: a:=proc(n) options remember: local d, i, l, m: if n<3 then RETURN(1) else if not isprime(n) then d:=divisors(n): l:=nops(d): m:=ds([seq(op(convert(d[l-i+1], base, 10)), i=2..l-1)]): RETURN(m/piecewise(m mod 2=1, 1, 2^(ifactors(m)[2][1][2]))) else RETURN(n) fi fi: end; seq(a(n), n=1..70); # C. Ronaldo
CROSSREFS
KEYWORD
nonn,easy,base
AUTHOR
EXTENSIONS
More terms from Erich Friedman
STATUS
approved