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

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

Author

Reinhard Zumkeller, May 25 2006

Keywords

• nonn
• base

Comments

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

Links

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

Crossrefs

Cf. A119797, A119799.

Programs

Haskell

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

Mathematica

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

Extensions

Offset fixed by Reinhard Zumkeller, Jan 04 2012