cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-3 of 3 results.

A037403 Numbers k such that every base-7 digit of k is a base-9 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 31, 99, 106, 107, 195, 198, 248, 257, 284, 297, 321, 498, 514, 749, 750, 751, 758, 767, 785, 936, 939, 940, 943, 950, 968, 996, 1028, 1086, 1088, 1110, 1163, 1200, 1218, 1254, 1453, 1471, 1498, 1500, 1502, 1507
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

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

A037404 Numbers k such that every base-7 digit of k is a base-10 digit of k.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 23, 46, 214, 250, 265, 285, 316, 421, 702, 1030, 1032, 1036, 1037, 1039, 1053, 1234, 1243, 1336, 1366, 1368, 1400, 1401, 1402, 1403, 1404, 1405, 1406, 1429, 1431, 1432, 1443, 1450, 1453, 1454, 1457, 1464
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

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

A037438 Positive numbers having the same set of digits in base 7 and base 8.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 94, 133, 220, 227, 305, 385, 597, 620, 629, 1043, 1059, 1195, 1441, 1540, 1571, 1893, 1904, 1905, 1906, 1907, 1908, 1909, 1910, 2086, 2278, 3080, 3170, 4165, 4200, 4365, 4389, 4464, 4483, 4504, 4512, 4880, 5156, 5202, 5211
Offset: 1

Views

Author

Keywords

Examples

			227 is in the sequence because 227 in base 7 is 443 and in base 8 it is 343.
		

Crossrefs

Subsequence of A037402.

Programs

  • Mathematica
    Select[Range[6000],Union[IntegerDigits[#,7]]==Union[IntegerDigits[#,8]]&] (* Harvey P. Dale, Jul 22 2015 *)

Extensions

More terms from Don Reble, Apr 28 2006
Edited by John Cerkan, Feb 17 2017
Showing 1-3 of 3 results.