login
A037400
Numbers k such that every base-6 digit of k is a base-9 digit of k.
4
1, 2, 3, 4, 5, 21, 104, 108, 115, 129, 194, 212, 215, 252, 259, 271, 280, 352, 370, 388, 417, 504, 651, 756, 757, 758, 759, 760, 761, 762, 763, 777, 913, 922, 928, 932, 949, 976, 994, 1008, 1015, 1030, 1076, 1137, 1147, 1151, 1152
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.List ((\\), nub)
a037400 n = a037400_list !! (n-1)
a037400_list = filter f [1..] where
f x = null $ nub (ds 6 x) \\ nub (ds 9 x)
ds b x = if x > 0 then d : ds b x' else [] where (x', d) = divMod x b
-- Reinhard Zumkeller, May 30 2013
CROSSREFS
KEYWORD
nonn,base
STATUS
approved