login
A037396
Numbers k such that every base-5 digit of k is a base-9 digit of k.
7
1, 2, 3, 4, 11, 22, 93, 121, 124, 126, 156, 181, 199, 317, 362, 598, 750, 751, 752, 755, 756, 758, 768, 770, 771, 775, 776, 780, 781, 785, 796, 812, 831, 841, 843, 849, 859, 895, 900, 906, 907, 911, 912, 918, 922, 927, 931, 932
OFFSET
1,2
LINKS
PROG
(Haskell)
import Data.List ((\\), nub)
a037396 n = a037396_list !! (n-1)
a037396_list = filter f [1..] where
f x = null $ nub (ds 5 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
(PARI) is(n)=#setminus(Set(digits(n, 5)), Set(digits(n, 9)))==0 \\ Charles R Greathouse IV, Feb 11 2017
CROSSREFS
KEYWORD
nonn,base
STATUS
approved