|
|
A294493
|
|
a(n) = Sum_{m=0..n} 3^v3(m!), where v3(m!) is the exponent of the highest power of 3 dividing n!, expressed in base 3.
|
|
0
|
|
|
1, 2, 10, 20, 100, 110, 210, 1010, 1110, 11110, 21110, 101110, 201110, 1001110, 1101110, 2101110, 10101110, 11101110, 111101110, 211101110, 1011101110, 2011101110, 10011101110, 11011101110, 21011101110, 101011101110, 111011101110, 10111011101110, 20111011101110
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
COMMENTS
|
Partial sums of A060828 expressed in ternary.
|
|
LINKS
|
|
|
MATHEMATICA
|
FromDigits@ IntegerDigits[#, 3] & /@ Accumulate@ Array[3^IntegerExponent[#!, 3] &, 29, 0] (* Michael De Vlieger, Nov 01 2017 *)
|
|
PROG
|
(PARI) a(n) = fromdigits(digits(sum(m=0, n, 3^valuation(m!, 3)), 3), 10);
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|