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.

Previous Showing 11-19 of 19 results.

A108698 Numbers of the form (6^i)*(11^j), with i, j >= 0.

Original entry on oeis.org

1, 6, 11, 36, 66, 121, 216, 396, 726, 1296, 1331, 2376, 4356, 7776, 7986, 14256, 14641, 26136, 46656, 47916, 85536, 87846, 156816, 161051, 279936, 287496, 513216, 527076, 940896, 966306, 1679616, 1724976, 1771561, 3079296, 3162456
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 19 2005

Keywords

Links

Crossrefs

Cf. A025626, A025627, A025628, A025629, A064476, A107710, A003596, A003597, A107988, A003598, A108687, A003599, A107788, A108090.

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
a108698 n = a108698_list !! (n-1)
a108698_list = f $ singleton (1,0,0) where
   f s = y : f (insert (6 * y, i + 1, j) $ insert (11 * y, i, j + 1) s')
         where ((y, i, j), s') = deleteFindMin s
-- Reinhard Zumkeller, May 15 2015
  • Mathematica
    n = 10^6; Flatten[Table[6^i*11^j, {i, 0, Log[6, n]}, {j, 0, Log[11, n/6^i]}]] // Sort (* Amiram Eldar, Oct 07 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (6*11)/((6-1)*(11-1)) = 33/25. - Amiram Eldar, Oct 07 2020
a(n) ~ exp(sqrt(2*log(6)*log(11)*n)) / sqrt(66). - Vaclav Kotesovec, Oct 07 2020

A108761 Numbers of the form (10^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 10, 13, 100, 130, 169, 1000, 1300, 1690, 2197, 10000, 13000, 16900, 21970, 28561, 100000, 130000, 169000, 219700, 285610, 371293, 1000000, 1300000, 1690000, 2197000, 2856100, 3712930, 4826809, 10000000, 13000000, 16900000
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 24 2005

Keywords

Links

Crossrefs

Cf. A107326, A107364, A107462, A107466, A107710, A108056, A107764, A108748, A108090.

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
a108761 n = a108761_list !! (n-1)
a108761_list = f $ singleton (1,0,0) where
   f s = y : f (insert (10 * y, i + 1, j) $ insert (13 * y, i, j + 1) s')
         where ((y, i, j), s') = deleteFindMin s
-- Reinhard Zumkeller, May 15 2015
  • Mathematica
    n = 10^7; Flatten[Table[10^i*13^j, {i, 0, Log10[n]}, {j, 0, Log[13, n/10^i]}]] // Sort (* Amiram Eldar, Sep 25 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (10*13)/((10-1)*(13-1)) = 65/54. - Amiram Eldar, Sep 25 2020
a(n) ~ exp(sqrt(2*log(10)*log(13)*n)) / sqrt(130). - Vaclav Kotesovec, Sep 25 2020

A108779 Numbers of the form (10^i)*(11^j), with i, j >= 0.

Original entry on oeis.org

1, 10, 11, 100, 110, 121, 1000, 1100, 1210, 1331, 10000, 11000, 12100, 13310, 14641, 100000, 110000, 121000, 133100, 146410, 161051, 1000000, 1100000, 1210000, 1331000, 1464100, 1610510, 1771561, 10000000, 11000000, 12100000, 13310000
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 26 2005

Keywords

Links

Crossrefs

Cf. A025612, A025616, A025621, A025625, A025629, A025632, A025634, A025635, A108761, A003596, A003597, A107988, A003598, A108698, A003599, A107788, A108687, A108090.

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
a108779 n = a108779_list !! (n-1)
a108779_list = f $ singleton (1,0,0) where
   f s = y : f (insert (10 * y, i + 1, j) $ insert (11 * y, i, j + 1) s')
         where ((y, i, j), s') = deleteFindMin s
-- Reinhard Zumkeller, May 15 2015
  • Mathematica
    n = 10^7; Flatten[Table[10^i*11^j, {i, 0, Log10[n]}, {j, 0, Log[11, n/10^i]}]] // Sort (* Amiram Eldar, Sep 25 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (10*11)/((10-1)*(11-1)) = 11/9. - Amiram Eldar, Sep 25 2020
a(n) ~ exp(sqrt(2*log(10)*log(11)*n)) / sqrt(110). - Vaclav Kotesovec, Sep 25 2020

A107462 Numbers of the form (4^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 4, 13, 16, 52, 64, 169, 208, 256, 676, 832, 1024, 2197, 2704, 3328, 4096, 8788, 10816, 13312, 16384, 28561, 35152, 43264, 53248, 65536, 114244, 140608, 173056, 212992, 262144, 371293, 456976, 562432, 692224, 851968, 1048576, 1485172
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 09 2005

Keywords

Links

Crossrefs

Subsequence of A107326.
Cf. A025617, A025618, A025619, A025620, A025621, A107364, A107466, A108056, A108090.

Programs

  • Mathematica
    n = 10^6; Flatten[Table[4^i*13^j, {i, 0, Log[4, n]}, {j, 0, Log[13, n/4^i]}]] // Sort (* Amiram Eldar, Sep 24 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (4*13)/((4-1)*(13-1)) = 13/9. - Amiram Eldar, Sep 24 2020
a(n) ~ exp(sqrt(2*log(4)*log(13)*n)) / sqrt(52). - Vaclav Kotesovec, Sep 24 2020

A107710 Numbers of the form (6^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 6, 13, 36, 78, 169, 216, 468, 1014, 1296, 2197, 2808, 6084, 7776, 13182, 16848, 28561, 36504, 46656, 79092, 101088, 171366, 219024, 279936, 371293, 474552, 606528, 1028196, 1314144, 1679616, 2227758, 2847312, 3639168, 4826809, 6169176
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 10 2005

Keywords

Links

Crossrefs

Cf. A025626, A025627, A025628, A025629, A064476, A107326, A107364, A107462, A107466, A108056, A108090.

Programs

  • Mathematica
    n = 10^6; Flatten[Table[6^i*13^j, {i, 0, Log[6, n]}, {j, 0, Log[13, n/6^i]}]] // Sort (* Amiram Eldar, Sep 25 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (6*13)/((6-1)*(13-1)) = 13/10. - Amiram Eldar, Sep 25 2020
a(n) ~ exp(sqrt(2*log(6)*log(13)*n)) / sqrt(78). - Vaclav Kotesovec, Sep 25 2020

A107764 Numbers of the form (8^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 8, 13, 64, 104, 169, 512, 832, 1352, 2197, 4096, 6656, 10816, 17576, 28561, 32768, 53248, 86528, 140608, 228488, 262144, 371293, 425984, 692224, 1124864, 1827904, 2097152, 2970344, 3407872, 4826809, 5537792, 8998912, 14623232, 16777216
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 11 2005

Keywords

Links

Crossrefs

Cf. A025633, A025634, A107326, A107364, A107462, A107466, A107710, A108056, A108090.

Programs

  • Mathematica
    n = 10^6; Flatten[Table[8^i*13^j, {i, 0, Log[8, n]}, {j, 0, Log[13, n/8^i]}]] // Sort (* Amiram Eldar, Sep 25 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (8*13)/((8-1)*(13-1)) = 26/21. - Amiram Eldar, Sep 25 2020
a(n) ~ exp(sqrt(2*log(8)*log(13)*n)) / sqrt(104). - Vaclav Kotesovec, Sep 25 2020

A108748 Numbers of the form (9^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 9, 13, 81, 117, 169, 729, 1053, 1521, 2197, 6561, 9477, 13689, 19773, 28561, 59049, 85293, 123201, 177957, 257049, 371293, 531441, 767637, 1108809, 1601613, 2313441, 3341637, 4782969, 4826809, 6908733, 9979281, 14414517, 20820969
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 23 2005

Keywords

Links

Crossrefs

Cf. A025635, A108687, A107326, A107364, A107462, A107466, A107710, A108056, A107764, A108090.

Programs

  • Mathematica
    n = 10^6; Flatten[Table[9^i*13^j, {i, 0, Log[9, n]}, {j, 0, Log[13, n/9^i]}]] // Sort (* Amiram Eldar, Sep 25 2020 *)

Formula

Sum_{n>=1} 1/a(n) = (9*13)/((9-1)*(13-1)) = 39/32. - Amiram Eldar, Sep 25 2020
a(n) ~ exp(sqrt(2*log(9)*log(13)*n)) / sqrt(117). - Vaclav Kotesovec, Sep 25 2020

A108771 Numbers of the form (12^i)*(13^j), with i, j >= 0.

Original entry on oeis.org

1, 12, 13, 144, 156, 169, 1728, 1872, 2028, 2197, 20736, 22464, 24336, 26364, 28561, 248832, 269568, 292032, 316368, 342732, 371293, 2985984, 3234816, 3504384, 3796416, 4112784, 4455516, 4826809, 35831808, 38817792, 42052608, 45556992
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 25 2005

Keywords

Links

Crossrefs

Cf. A107326, A107364, A107462, A107466, A107710, A108056, A107764, A108748, A108761, A108090.

Programs

  • Maple
    N:= 10^8: # to get all terms <= N
sort([seq(seq(12^i*13^j, j = 0 .. floor(log[13](N/12^i))), i=0..floor(log[12](N)))]); # Robert Israel, Jun 16 2019
  • Mathematica
    With[{max = 5*10^7}, Flatten[Table[12^i*13^j, {i, 0, Log[12, max]}, {j, 0, Log[13, max/12^i]}]] // Sort] (* Amiram Eldar, Mar 29 2025 *)

Formula

Sum_{n>=1} 1/a(n) = 13/11. - Amiram Eldar, Mar 29 2025

A108218 Numbers of the form (11^i)*(12^j), with i, j >= 0.

Original entry on oeis.org

1, 11, 12, 121, 132, 144, 1331, 1452, 1584, 1728, 14641, 15972, 17424, 19008, 20736, 161051, 175692, 191664, 209088, 228096, 248832, 1771561, 1932612, 2108304, 2299968, 2509056, 2737152, 2985984, 19487171, 21258732, 23191344, 25299648
Offset: 1

Views

Author

Douglas Winston (douglas.winston(AT)srupc.com), Jun 28 2005

Keywords

Links

Crossrefs

Cf. A003596, A003597, A107988, A003598, A108201, A108698, A064476, A003599, A108238, A107788, A108687, A108779, A108090, A108771.

Programs

  • Haskell
    import Data.Set (singleton, deleteFindMin, insert)
a108218 n = a108218_list !! (n-1)
a108218_list = f $ singleton (1,0,0) where
   f s = y : f (insert (11 * y, i + 1, j) $ insert (12 * y, i, j + 1) s')
         where ((y, i, j), s') = deleteFindMin s
-- Reinhard Zumkeller, May 15 2015
  • Mathematica
    With[{max = 3*10^7}, Flatten[Table[11^i*12^j, {i, 0, Log[11, max]}, {j, 0, Log[12, max/11^i]}]] // Sort] (* Amiram Eldar, Mar 29 2025 *)

Formula

Sum_{n>=1} 1/a(n) = 6/5. - Amiram Eldar, Mar 29 2025
Previous Showing 11-19 of 19 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.