OFFSET
1,2
COMMENTS
Conjecture: a(n) = n only for numbers 1 and 210; sigma(210) = 576; a(210) = 5*7*6 = 210.
LINKS
Jaroslav Krizek, Table of n, a(n) for n = 1..1000
EXAMPLE
a(12) = 16 because sigma(12) = 28; 2*8 = 16.
MAPLE
seq( convert(convert(numtheory:-sigma(n), base, 10), `*`), n=1..100); # Robert Israel, Oct 06 2016
MATHEMATICA
Table[Times @@ IntegerDigits@ DivisorSigma[1, n], {n, 75}] (* Michael De Vlieger, Oct 06 2016 *)
PROG
(Magma) [&*Intseq(SumOfDivisors(n)): n in [1..100000]]
(PARI) a(n) = d = digits(sigma(n)); prod(k=1, #d, d[k]); \\ Michel Marcus, Oct 05 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jaroslav Krizek, Oct 05 2016
STATUS
approved