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.

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

Author

Michel Marcus, Nov 01 2017

Keywords

• nonn
• base

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.

Crossrefs

Cf. A060828.

Programs

Mathematica

FromDigits@ IntegerDigits[#, 3] & /@ Accumulate@ Array[3^IntegerExponent[#!, 3] &, 29, 0] (* Michael De Vlieger, Nov 01 2017 *)

PARI

a(n) = fromdigits(digits(sum(m=0, n, 3^valuation(m!, 3)), 3), 10);