login
A276716
a(n) = A007953(n)*A047726(n).
1
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, 22, 6, 8, 10, 6, 14, 16, 18, 20, 22, 24, 8, 10, 12, 14, 8, 18, 20, 22, 24, 26, 10, 12, 14, 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
OFFSET
1,2
PROG
(PARI) A047726(n) = n=eval(Vec(Str(n))); (#n)!/prod(i=0, 9, sum(j=1, #n, n[j]==i)!);
A007953(n) = sumdigits(n);
a(n) = A007953(n)*A047726(n);
CROSSREFS
KEYWORD
nonn,base,look
AUTHOR
Altug Alkan, Sep 17 2016
STATUS
approved