A119799 -id:A119799 - cp's OEIS frontend

A043537 Number of distinct base-10 digits of n.

1, 1, 1, 1, 1, 1, 1, 1, 1, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 2, 2

Offset: 1

Clark Kimberling

a(A000079(A130694(n))) = 10. - Reinhard Zumkeller, Jul 29 2007
a(A000290(A016070(n))) = 2. - Reinhard Zumkeller, Aug 05 2010
a(n) = 10 for almost all n. - Charles R Greathouse IV, Oct 02 2013

R. Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A047726, A118668, A119797, A119798, A119799, A119823, A038378, A076493, A055642, A178788.

import Data.List (nub)
a043537 = length . nub . show  -- Reinhard Zumkeller, Apr 16 2011

A043537 := proc(n)
        convert(convert(n,base,10),set) ;
        nops(%) ;
end proc: # R. J. Mathar, Dec 22 2012

Count[DigitCount@ #, n_ /; n > 0] & /@ Range@ 120 (* Michael De Vlieger, Aug 29 2015 *)

a(n)=#vecsort(digits(n),,8) \\ Charles R Greathouse IV, Oct 02 2013

def A043537(n): return len(set(str(n))) # Dimiter Skordev, Oct 02 2021

A119797 Numbers m such that m and m+1 have the same number of distinct digits in decimal representation.

Original entry on oeis.org

0, 1, 2, 3, 4, 5, 6, 7, 8, 12, 13, 14, 15, 16, 17, 18, 19, 20, 23, 24, 25, 26, 27, 28, 29, 30, 31, 34, 35, 36, 37, 38, 39, 40, 41, 42, 45, 46, 47, 48, 49, 50, 51, 52, 53, 56, 57, 58, 59, 60, 61, 62, 63, 64, 67, 68, 69, 70, 71, 72, 73, 74, 75, 78, 79, 80, 81, 82, 83, 84, 85, 86

Offset: 1

Reinhard Zumkeller, May 25 2006

A043537(a(n)) = A043537(a(n)+1).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A119798, A119799.

a119797 n = a119797_list !! (n-1)
a119797_list = f [0..] a043537_list where
   f (u:us) (v:vs@(v':_)) | v /= v'   = f us vs
                          | otherwise = u : f us vs
-- Reinhard Zumkeller, Jan 04 2012

Select[Range[0,86],CountDistinct[IntegerDigits[#]]==CountDistinct[IntegerDigits[#+1]]&] (* James C. McMahon, Sep 18 2024 *)

Offset fixed by Reinhard Zumkeller, Jan 04 2012

A119798 Numbers m such that m and 2*m have the same number of distinct digits in decimal representation.

Original entry on oeis.org

0, 1, 2, 3, 4, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 56, 57, 58, 59, 61, 72, 83, 94, 100, 101, 102, 103, 104, 105, 107, 108, 109, 110, 111, 112, 113

Offset: 1

Reinhard Zumkeller, May 25 2006

A043537(a(n)) = A043537(2*a(n)).

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Cf. A119797, A119799.

a119798 n = a119798_list !! (n-1)
a119798_list = f [0..] a043537_list a043537_list where
   f (z:zs) (u:us) (v:_:vs) | u /= v   = f zs us vs
                            | otherwise = z : f zs us vs
-- Reinhard Zumkeller, Jan 04 2012

snddQ[n_]:=Count[DigitCount[n],?(#>0&)]==Count[DigitCount[2n], ?(#>0&)]; Select[Range[0,120],snddQ] (* Harvey P. Dale, Oct 07 2012 *)

Offset fixed by Reinhard Zumkeller, Jan 04 2012

cp's OEIS Frontend

A043537 Number of distinct base-10 digits of n.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Maple

Mathematica

PARI

Python

A119797 Numbers m such that m and m+1 have the same number of distinct digits in decimal representation.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions

A119798 Numbers m such that m and 2*m have the same number of distinct digits in decimal representation.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica

Extensions