login
A037392
Every base 4 digit of n is a base 10 digit of n.
7
1, 2, 3, 13, 21, 31, 42, 63, 102, 123, 203, 213, 231, 234, 235, 238, 239, 341, 351, 381, 421, 520, 682, 1013, 1023, 1024, 1025, 1026, 1028, 1029, 1031, 1032, 1036, 1037, 1039, 1040, 1041, 1042, 1043, 1044, 1045, 1053, 1062
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.List ((\\), nub)
a037392 n = a037392_list !! (n-1)
a037392_list = filter f [1..] where
f x = null $ nub (ds 4 x) \\ nub (ds 10 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