|
| |
|
|
A037390
|
|
Numbers n such that every base 4 digit of n is a base 8 digit of n.
|
|
6
|
|
|
|
1, 2, 3, 10, 42, 64, 65, 66, 67, 68, 69, 80, 85, 86, 90, 93, 95, 106, 128, 129, 130, 131, 136, 153, 160, 168, 169, 170, 171, 187, 192, 193, 194, 195, 234, 240, 250, 255, 257, 321, 514, 522, 528, 529, 530, 531, 532, 533, 534, 538
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
1,2
|
|
|
LINKS
|
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
|
|
|
PROG
|
(Haskell)
import Data.List ((\\), nub)
a037390 n = a037390_list !! (n-1)
a037390_list = filter f [1..] where
f x = null $ nub (ds 4 x) \\ nub (ds 8 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, A037391, A037392.
Sequence in context: A129716 A032293 A059733 * A024484 A007226 A032204
Adjacent sequences: A037387 A037388 A037389 * A037391 A037392 A037393
|
|
|
KEYWORD
|
nonn,base
|
|
|
AUTHOR
|
Clark Kimberling
|
|
|
STATUS
|
approved
|
| |
|
|
