OFFSET
1,3
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
EXAMPLE
m=59: m, m+1 and 2*m are composed of two distinct digits:
59, 59+1=60 and 2*59=118: therefore 59 is a term.
MATHEMATICA
Select[Range[0, 134], CountDistinct[IntegerDigits[#]]==CountDistinct[IntegerDigits[2#]]==CountDistinct[IntegerDigits[#+1]]&] (* James C. McMahon, Sep 19 2024 *)
PROG
(Haskell)
a119799 n = a119799_list !! (n-1)
a119799_list = i a119797_list a119798_list where
i xs'@(x:xs) ys'@(y:ys) | x < y = i xs ys'
| x > y = i xs' ys
| otherwise = x : i xs ys
-- Reinhard Zumkeller, Jan 04 2012
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Reinhard Zumkeller, May 25 2006
EXTENSIONS
Offset fixed by Reinhard Zumkeller, Jan 04 2012
STATUS
approved