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

Comments

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

Links

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

Mathematica

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

Prog

(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

Crossrefs

Cf. A119797, A119799.

Sequence in context: A193858 A054930 A329230 * A015976 A370842 A098892

Adjacent sequences: A119795 A119796 A119797 * A119799 A119800 A119801

Keyword

nonn,base

Author

Reinhard Zumkeller, May 25 2006

Extensions

Offset fixed by Reinhard Zumkeller, Jan 04 2012

Status

approved