A043534 Number of distinct base-7 digits of n.

1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 3, 3, 3, 3, 3, 2, 1, 2, 2, 2, 2, 2, 3, 2, 2, 3, 3, 3, 3, 3, 2, 3, 2, 3, 3, 3, 3, 2, 3, 3, 2, 3, 3, 3, 2, 3, 3, 3, 2, 3

Offset: 1

Author

Clark Kimberling

Keywords

• nonn
• base

Links

• Robert Israel, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A007093.

Programs

Maple

seq(nops(convert(convert(n,base,7),set)), n=1..100); # Robert Israel, Sep 18 2016

Mathematica

Table[Length[Union[IntegerDigits[n,7]]],{n,100}] (* Harvey P. Dale, Jun 22 2024 *)