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

Links

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

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 *)

Crossrefs

Cf. A007093.

Sequence in context: A307359 A368860 A297775 * A043559 A083165 A297776

Adjacent sequences: A043531 A043532 A043533 * A043535 A043536 A043537

Keyword

nonn,base

Author

Clark Kimberling

Status

approved