login
A037397
Every base 5 digit of n is a base 10 digit of n.
6
1, 2, 3, 4, 12, 24, 31, 62, 93, 104, 124, 130, 150, 156, 162, 174, 182, 213, 250, 260, 281, 302, 312, 324, 342, 390, 473, 493, 504, 604, 624, 781, 812, 831, 912, 1003, 1030, 1031, 1032, 1033, 1034, 1043, 1083, 1093, 1174, 1234, 1243
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.List ((\\), nub)
a037397 n = a037397_list !! (n-1)
a037397_list = filter f [1..] where
f x = null $ nub (ds 5 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