A339256 Leading digit of n in base 6.

1, 2, 3, 4, 5, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 5, 5, 5, 5, 5, 5, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2

Offset: 1

Author

Kevin Ryde, Nov 28 2020

Keywords

• base
• nonn

Links

• Kevin Ryde, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007092 (base 6), A109804 (partial sums).

In other bases: A122586, A122587, A339255, A000030, A099563, A276153.

Programs

Mathematica

Table[IntegerDigits[n,6][[1]],{n,90}] (* Harvey P. Dale, Jul 19 2023 *)

PARI

a(n) = n\6^logint(n,6);

Formula

a(n) = floor(n / 6^floor(log_6(n))).

G.f.: (x + Sum_{k>=0} Sum_{d=2..5} (x^(d*6^k)-x^(6^(k+1))) )/(1-x).