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,2

Comments

Partial sums of A060828 expressed in ternary.

Links

Table of n, a(n) for n=0..28.

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

Adjacent sequences: A294490 A294491 A294492 * A294494 A294495 A294496

Keyword

nonn,base

Author

Michel Marcus, Nov 01 2017

Status

approved