A119797 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

A119797

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

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

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,3

COMMENTS

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

LINKS

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

MATHEMATICA

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

PROG

(Haskell)

a119797 n = a119797_list !! (n-1)