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 51-60 of 142 results. Next

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

Original entry on oeis.org

1, 7, 16, 96, 103, 112, 224, 864, 6736, 134208, 292464, 1000176, 5891856, 9647136
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 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[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 2020 *)

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002
Additional comments from Larry Reeves (larryr(AT)acm.org), May 25 2001
a(10)-a(11) from Larry Reeves (larryr(AT)acm.org), Jun 15 2001, Jan 16 2002
a(12)-a(14) from Lars Blomberg, Oct 02 2011

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

Original entry on oeis.org

1, 2, 3, 5, 37, 73, 80, 104, 135, 149, 160, 170, 2860, 3547, 63335, 112405, 198734, 703957, 1353979
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 6; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 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(18)-a(19) from Lars Blomberg, Oct 03 2011

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

Original entry on oeis.org

1, 3, 11, 16, 48, 480, 947, 1111, 1137, 1367, 2125, 6351, 6841, 8209, 11392, 32931, 166413, 173904, 263547, 284047, 634832, 690589, 2495931, 6696245, 7004640
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 7; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 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(21)-a(25) from Lars Blomberg, Oct 03 2011

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

Original entry on oeis.org

1, 2, 4, 6, 7, 11, 182, 427, 649, 859, 1559, 5579, 10577, 11830, 19915, 533022, 546690, 569462, 673682, 1050721, 1233092, 1621270, 1771002, 9151954
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

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

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002
a(19)-a(24) from Lars Blomberg, Oct 04 2011

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

Original entry on oeis.org

1, 3, 32, 320, 544, 2048, 3331, 5833, 32281, 125120, 145760, 317621, 889760, 7371043
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 9; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 2020 *)
  • PARI
    lista(nn, m=9) = my(s, t); for(k=1, nn, s=k; while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 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(13)-a(14) from Lars Blomberg, Oct 04 2011

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

Original entry on oeis.org

1, 5, 15, 24, 40, 69, 72, 75, 120, 167, 216, 280, 360, 536, 1192, 1240, 1360, 11280, 25195, 33216, 33984, 101328, 221640, 400479, 531000, 537640, 600104, 631155, 743085, 958785, 2660431, 2777800
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

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

Extensions

Edited and updated by Larry Reeves (larryr(AT)acm.org), Apr 12 2002; Aug 25, 2002
a(27)-a(32) from Lars Blomberg, Oct 06 2011

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

Original entry on oeis.org

1, 2, 3, 4, 6, 11, 106, 616, 990, 1232, 1276, 1534, 3494, 8140, 43054, 52634, 97691, 99280, 131846, 136006, 355877, 617749, 824703, 2115058, 3011987
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 12; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 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 05 2001
a(22)-a(25) from Lars Blomberg, Oct 07 2011

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

Original entry on oeis.org

1, 3, 9, 15, 21, 25, 35, 47, 48, 87, 240, 320, 672, 896, 1760, 2592, 2688, 3659, 5152, 15456, 16800, 53200, 60288, 75360, 92605, 92736, 121600, 189648, 204176, 334827, 382368, 401472, 443919, 1070720, 1836855, 2010432, 4384128, 5566077
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 13; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 12 2020 *)
  • PARI
    lista(nn, m=13) = my(s, t); for(k=1, nn, s=k; while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 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(33)-a(38) from Lars Blomberg, Oct 07 2011

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

Original entry on oeis.org

1, 2, 6, 7, 10, 13, 86, 197, 408, 498, 520, 936, 1362, 1636, 1716, 1980, 2392, 6718, 7709, 17498, 89190, 100463, 120133, 168169, 177840, 477984, 493806, 2648444, 3922637, 5012137
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 14; 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(26)-a(30) from Lars Blomberg, Oct 08 2011

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

Original entry on oeis.org

1, 3, 5, 7, 32, 77, 93, 96, 160, 224, 352, 889, 941, 2275, 3421, 10368, 23744, 31104, 40832, 168111, 303296, 3496928, 6149591, 8275552, 8333395, 9774432
Offset: 1

Views

Author

Olivier Gérard

Keywords

Comments

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

Examples

			See A029495 for example.

Links

Crossrefs

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

Programs

  • Mathematica
    b = 15; c = {}; Select[Range[10^4], Divisible[FromDigits[c = Join[c, Reverse[IntegerDigits[#, b]]], b], #] &] (* Robert Price, Mar 13 2020 *)
  • PARI
    lista(nn, m=15) = my(s, t); for(k=1, nn, s=k; while(s, t=t*m+s%m; s\=m); if(t%k==0, print1(k, ", "))); \\ Jinyuan Wang, Dec 05 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 01 2001
a(22)-a(26) from Lars Blomberg, Oct 08 2011
Previous Showing 51-60 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.