A037392 Every base 4 digit of n is a base 10 digit of n.

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

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

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

Cf. A037387, A037388, A037389, A037390, A037391.

Sequence in context: A295111 A229117 A295722 * A136341 A139563 A019226

Adjacent sequences: A037389 A037390 A037391 * A037393 A037394 A037395

Keyword

nonn,base

Author

Clark Kimberling

Status

approved