|
%I #26 Feb 06 2017 03:46:13
%S 1,2,3,4,5,6,7,8,9,2,2,6,8,10,12,14,16,18,20,4,6,4,10,12,14,16,18,20,
%T 22,6,8,10,6,14,16,18,20,22,24,8,10,12,14,8,18,20,22,24,26,10,12,14,
%U 16,18,10,22,24,26,28,12,14,16,18,20,22,12,26,28,30,14,16,18,20,22,24,26,14,30,32,16
%N a(n) = A007953(n)*A047726(n).
%H Altug Alkan, <a href="/A276716/b276716.txt">Table of n, a(n) for n = 1..100000</a>
%o (PARI) A047726(n) = n=eval(Vec(Str(n))); (#n)!/prod(i=0, 9, sum(j=1, #n, n[j]==i)!);
%o A007953(n) = sumdigits(n);
%o a(n) = A007953(n)*A047726(n);
%Y Cf. A007953, A045876, A047726.
%K nonn,base,look
%O 1,2
%A _Altug Alkan_, Sep 17 2016
|
