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 61-70 of 142 results. Next

A029509 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 16 (most significant digit on right).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 8, 9, 10, 12, 15, 25, 45, 163, 234, 661, 1034, 1191, 1415, 1835, 2094, 3143, 3284, 3459, 3638, 3915, 5215, 16620, 18505, 18790, 31965, 36600, 140835, 175302, 187170, 190545, 283115, 6926085, 7607655
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061945 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 09 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 16; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(38)-a(39) from Lars Blomberg, Oct 09 2011

A029510 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 17 (most significant digit on right).

Original entry on oeis.org

1, 19, 27, 45, 64, 111, 192, 243, 320, 1152, 2112, 3456, 10747, 11328, 13824, 16896, 18909, 177408, 306335, 338369, 414336, 423552, 1176203, 2965056
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061946 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 09 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 17; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(22)-a(24) from Lars Blomberg, Oct 09 2011

A029511 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 18 (most significant digit on right).

Original entry on oeis.org

1, 2, 3, 6, 9, 17, 25, 65, 85, 160, 169, 175, 187, 221, 325, 856, 1965, 2264, 2309, 3332, 4080, 4182, 6073, 20757, 23392, 47345, 88689, 97846, 672676, 901816, 1317677, 2120393, 8595637
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061947 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 11 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 18; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(29)-a(33) from Lars Blomberg, Oct 11 2011

A029513 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 20 (most significant digit on right).

Original entry on oeis.org

1, 2, 4, 5, 6, 10, 12, 14, 18, 19, 53, 703, 1824, 2185, 2546, 5054, 6594, 9841, 1393056, 1648110, 1984492, 2648114, 3430811, 8070122
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061949 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 14 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 20; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(19)-a(24) from Lars Blomberg, Oct 14 2011

A029514 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 21 (most significant digit on right).

Original entry on oeis.org

1, 3, 5, 7, 15, 25, 55, 80, 143, 187, 192, 387, 1385, 1760, 4080, 9040, 9245, 15565, 17776, 20080, 28400, 30019, 30063, 37312, 38368, 52217, 56277, 84480, 97504, 123040, 293045, 458560, 1258528, 2437600, 2442000, 3122240, 7216880
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061950 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 11 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 21; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(32)-a(37) from Lars Blomberg, Oct 11 2011

A029516 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 23 (most significant digit on right).

Original entry on oeis.org

1, 11, 33, 48, 112, 165, 176, 209, 528, 720, 1584, 2123, 2717, 6919, 9680, 18080, 23991, 47597, 58656, 75213, 106815, 111392, 253792, 278245, 343409, 502523, 528128, 934560
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061952 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. - Lars Blomberg, Oct 14 2011

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 23; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002, Aug 25 2002
a(28) from Lars Blomberg, Oct 14 2011

A029517 Numbers n such that n divides the (right) concatenation of all numbers <= n written in base 24 (most significant digit on right).

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 10, 12, 20, 23, 3726, 4900, 5120, 7452, 8350, 59708, 483713, 1565449, 2048350, 2109790, 2968633, 4123900, 6745900, 6883670
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061953 in that all least significant zeros are kept during concatenation.
No more terms < 10^7. [Lars Blomberg, Oct 14 2011]

Examples

			See A029495 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 24; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(17)-a(24) from Lars Blomberg, Oct 14 2011

A029520 Numbers k such that k divides the (left) concatenation of all numbers <= k written in base 3 (most significant digit on right and removing all least significant zeros before concatenation).

Original entry on oeis.org

1, 4, 5, 7, 19, 443, 19952, 81544, 919648, 1186844
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061956 in that all least significant zeros are removed before concatenation.
No more terms < 10^7. [Lars Blomberg, Sep 02 2011]

Examples

			See A029519 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • J
    ab=. #.^:_1
mkcat=. [ ab&.> [ #.&.> [ |.@:ab&.> [: |. [: >: [: i. ]
seq=. ] +. [ #. [: ; mkcat
3 (] #~ ] = seq"0) >: i.500x NB. Stephen Makdisi, May 03 2018
  • Mathematica
    b = 3; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[IntegerReverse[#, b], b], c], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), Jun 04 2001
a(9)-a(10) from Lars Blomberg, Sep 02 2011

A029521 Numbers k such that k divides the (left) concatenation of all numbers <= k written in base 4 (most significant digit on right and removing all least significant zeros before concatenation).

Original entry on oeis.org

1, 3, 15, 969, 1107, 136193, 538019, 2177475, 2799315, 5948555
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061957 in that all least significant zeros are removed before concatenation.
No more terms < 10^7. [Lars Blomberg, Sep 02 2011]

Examples

			See A029519 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 4; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[IntegerReverse[#, b], b], c], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25 2002
a(8)-a(10) from Lars Blomberg, Sep 02 2011

A029522 Numbers k such that k divides the (left) concatenation of all numbers <= k written in base 5 (most significant digit on right and removing all least significant zeros before concatenation).

Original entry on oeis.org

1, 8, 16, 19, 1208, 3187, 5352, 30984, 80976, 126944, 670251, 5306279, 7640616
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

This sequence differs from A061958 in that all least significant zeros are removed before concatenation.
No more terms < 10^7. [Lars Blomberg, Sep 04 2011]

Examples

			See A029519 for example.

Links

Crossrefs

Cf. A029447-A029470, A029471-A029494, A029495-A029518, A029519-A029542, A061931-A061954, A061955-A061978.

Programs

  • Mathematica
    b = 5; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[IntegerDigits[IntegerReverse[#, b], b], c], b], #] &] (* Robert Price, Mar 13 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments and more terms from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(11)-a(13) from Lars Blomberg, Sep 04 2011
Previous Showing 61-70 of 142 results. Next

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

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