login
Product of decimal digits of sum of divisors of n.
2

%I #12 Sep 08 2022 08:46:17

%S 1,3,4,7,6,2,8,5,3,8,2,16,4,8,8,3,8,27,0,8,6,18,8,0,3,8,0,30,0,14,6,

%T 18,32,20,32,9,24,0,30,0,8,54,16,32,56,14,32,8,35,27,14,72,20,0,14,0,

%U 0,0,0,48,12,54,0,14,32,16,48,12,54,16,14,45,28,4,8

%N Product of decimal digits of sum of divisors of n.

%C Conjecture: a(n) = n only for numbers 1 and 210; sigma(210) = 576; a(210) = 5*7*6 = 210.

%H Jaroslav Krizek, <a href="/A277216/b277216.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A007954(A000203(n)).

%e a(12) = 16 because sigma(12) = 28; 2*8 = 16.

%p seq( convert(convert(numtheory:-sigma(n),base,10),`*`), n=1..100); # _Robert Israel_, Oct 06 2016

%t Table[Times @@ IntegerDigits@ DivisorSigma[1, n], {n, 75}] (* _Michael De Vlieger_, Oct 06 2016 *)

%o (Magma) [&*Intseq(SumOfDivisors(n)): n in [1..100000]]

%o (PARI) a(n) = d = digits(sigma(n)); prod(k=1, #d, d[k]); \\ _Michel Marcus_, Oct 05 2016

%Y Cf. A067342 (sum of decimal digits of sigma(n)).

%Y Cf. A000203, A007954, A277217.

%K nonn,base

%O 1,2

%A _Jaroslav Krizek_, Oct 05 2016