A043535 Number of distinct base-8 digits of n.

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

Offset

1,8

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A043535[n_] := Length[DeleteDuplicates[IntegerDigits[n, 8]]];
Array[A043535, 100] (* Paolo Xausa, Oct 24 2025 *)

Prog

(PARI) a(n) = #Set(digits(n, 8)); \\ Michel Marcus, Oct 25 2025

Crossrefs

Cf. A007094.

Sequence in context: A043559 A083165 A297776 * A043560 A276034 A111626

Adjacent sequences: A043532 A043533 A043534 * A043536 A043537 A043538

Keyword

nonn,base,easy

Author

Clark Kimberling

Status

approved