A037398 -id:A037398 - cp's OEIS frontend

A037399 Numbers k such that every base-6 digit of k is a base-8 digit of k.

1, 2, 3, 4, 5, 28, 80, 85, 86, 98, 115, 160, 172, 213, 266, 331, 345, 532, 691, 699, 705, 708, 717, 720, 727, 763, 765, 792, 799, 811, 819, 835, 851, 859, 861, 863, 864, 900, 916, 928, 1036, 1061, 1068, 1085, 1093, 1128, 1129, 1130

Offset: 1

Clark Kimberling

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

Cf. A007092, A007094.

Cf. A037398, A037400, A037401.

import Data.List ((\\), nub)
a037399 n = a037399_list !! (n-1)
a037399_list = filter f [1..] where
   f x = null $ nub (ds 6 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

b68Q[n_]:=Module[{b6=Union[IntegerDigits[n,6]],b8=Union[IntegerDigits[ n,8]]}, And@@Table[ MemberQ[b8,b6[[i]]],{i,Length[b6]}]]; Select[Range[ 1200],b68Q] (* Harvey P. Dale, Mar 24 2012 *)

A037401 Numbers k such that every base-6 digit of k is a base-10 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 35, 123, 154, 215, 331, 512, 521, 1014, 1024, 1045, 1054, 1085, 1135, 1145, 1151, 1295, 1302, 1303, 1305, 1350, 1440, 1450, 1504, 1506, 1507, 1520, 1530, 1540, 1555, 1559, 1562, 1579, 1583, 1592, 1639, 1653

Offset: 1

Clark Kimberling

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

Cf. A037398, A037399, A037400.

import Data.List ((\\), nub)
a037401 n = a037401_list !! (n-1)
a037401_list = filter f [1..] where
   f x = null $ nub (ds 6 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

import Data.List ((\\), nub)
a037401 n = a037401_list !! (n-1)
a037401_list = filter f [1..] where
   f x = null $ nub (ds 6 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

A037400 Numbers k such that every base-6 digit of k is a base-9 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 21, 104, 108, 115, 129, 194, 212, 215, 252, 259, 271, 280, 352, 370, 388, 417, 504, 651, 756, 757, 758, 759, 760, 761, 762, 763, 777, 913, 922, 928, 932, 949, 976, 994, 1008, 1015, 1030, 1076, 1137, 1147, 1151, 1152

Offset: 1

Clark Kimberling

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

Cf. A007092, A007095.

Cf. A037398, A037399, A037401.

import Data.List ((\\), nub)
a037400 n = a037400_list !! (n-1)
a037400_list = filter f [1..] where
   f x = null $ nub (ds 6 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

cp's OEIS Frontend

A037399 Numbers k such that every base-6 digit of k is a base-8 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Mathematica

A037401 Numbers k such that every base-6 digit of k is a base-10 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell

Haskell

A037400 Numbers k such that every base-6 digit of k is a base-9 digit of k.

Views

Author

Keywords

Links

Crossrefs

Programs

Haskell