login
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
OFFSET
0,2
COMMENTS
Partial sums of A060828 expressed in ternary.
LINKS
Sílvia Casacuberta, Irrationality of the sum of a p-adic series, arXiv:1710.11484 [math.NT], 2017.
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
Cf. A060828.
Sequence in context: A029994 A298411 A324474 * A261660 A004643 A284213
KEYWORD
nonn,base
AUTHOR
Michel Marcus, Nov 01 2017
STATUS
approved