A033029 -id:A033029 - cp's OEIS frontend

A033004 Every run of digits of n in base 6 has length 2.

7, 14, 21, 28, 35, 252, 266, 273, 280, 287, 504, 511, 525, 532, 539, 756, 763, 770, 784, 791, 1008, 1015, 1022, 1029, 1043, 1260, 1267, 1274, 1281, 1288, 9079, 9086, 9093, 9100, 9107, 9576, 9583, 9597, 9604, 9611, 9828, 9835

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 02 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..700

Cf. A033007, A033010.

Select[Range[10000], Union[Length/@Split[IntegerDigits[#, 6]]]=={2}&] (* Vincenzo Librandi, Feb 05 2014 *)

a(n) = 7*A043310(n) (= 7*n for n<6). - M. F. Hasler, Feb 02 2014

A033005 Every run of digits of n in base 7 has length 2.

Original entry on oeis.org

8, 16, 24, 32, 40, 48, 392, 408, 416, 424, 432, 440, 784, 792, 808, 816, 824, 832, 1176, 1184, 1192, 1208, 1216, 1224, 1568, 1576, 1584, 1592, 1608, 1616, 1960, 1968, 1976, 1984, 1992, 2008, 2352, 2360, 2368, 2376, 2384, 2392

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 02 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..1500

Select[Range[2500],Union[Length/@Split[IntegerDigits[#,7]]]=={2}&] (* Harvey P. Dale, Oct 24 2011 *)

a(n) = 8*A043311(n) (= 8*n for n<7). - M. F. Hasler, Feb 02 2014

A033006 Every run of digits of n in base 8 has length 2.

Original entry on oeis.org

9, 18, 27, 36, 45, 54, 63, 576, 594, 603, 612, 621, 630, 639, 1152, 1161, 1179, 1188, 1197, 1206, 1215, 1728, 1737, 1746, 1764, 1773, 1782, 1791, 2304, 2313, 2322, 2331, 2349, 2358, 2367, 2880, 2889, 2898, 2907, 2916, 2934

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 02 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..1400

Select[Range[10000], Union[Length/@Split[IntegerDigits[#, 8]]]=={2}&] (* Vincenzo Librandi, Feb 05 2014 *)

a(n) = 9*A043312(n) (= 9*n for n<8). - M. F. Hasler, Feb 02 2014

Typo in name corrected by Vincenzo Librandi, Feb 05 2014

A033009 Every run of digits of n in base 11 has length 2.

Original entry on oeis.org

12, 24, 36, 48, 60, 72, 84, 96, 108, 120, 1452, 1476, 1488, 1500, 1512, 1524, 1536, 1548, 1560, 1572, 2904, 2916, 2940, 2952, 2964, 2976, 2988, 3000, 3012, 3024, 4356, 4368, 4380, 4404, 4416, 4428, 4440, 4452, 4464, 4476

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 02 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..1100

Select[Range[10000], Union[Length/@Split[IntegerDigits[#, 11]]]=={2}&] (* Vincenzo Librandi, Feb 05 2014 *)

a(n) = 12*A043315(n) (= 12*n for n<11). - M. F. Hasler, Feb 02 2014

A033011 Every run of digits of n in base 13 has length 2.

Original entry on oeis.org

14, 28, 42, 56, 70, 84, 98, 112, 126, 140, 154, 168, 2366, 2394, 2408, 2422, 2436, 2450, 2464, 2478, 2492, 2506, 2520, 2534, 4732, 4746, 4774, 4788, 4802, 4816, 4830, 4844, 4858, 4872, 4886, 4900, 7098, 7112, 7126, 7154

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases. See A033015 through A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 02 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..1800

Select[Range[8000],Union[Length/@Split[IntegerDigits[#,13]]]=={2}&] (* Harvey P. Dale, Feb 27 2013 *)

a(n) = 14*A043317(n) (= 14*n for n<13). - M. F. Hasler, Feb 02 2014

A033012 Every run of digits of n in base 14 has length 2.

Original entry on oeis.org

15, 30, 45, 60, 75, 90, 105, 120, 135, 150, 165, 180, 195, 2940, 2970, 2985, 3000, 3015, 3030, 3045, 3060, 3075, 3090, 3105, 3120, 3135, 5880, 5895, 5925, 5940, 5955, 5970, 5985, 6000, 6015, 6030, 6045, 6060, 6075, 8820

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 04 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

Select[Range[9000],Union[Length/@Split[IntegerDigits[#,14]]]=={2}&] (* Harvey P. Dale, Apr 26 2013 *)

a(n) = 15*A043318(n) (= 15*n for n<14). - M. F. Hasler, Feb 02 2014

A033013 Every run of digits of n in base 15 has length 2.

Original entry on oeis.org

16, 32, 48, 64, 80, 96, 112, 128, 144, 160, 176, 192, 208, 224, 3600, 3632, 3648, 3664, 3680, 3696, 3712, 3728, 3744, 3760, 3776, 3792, 3808, 3824, 7200, 7216, 7248, 7264, 7280, 7296, 7312, 7328, 7344, 7360, 7376, 7392

Offset: 1

Clark Kimberling

See A043291 and A033001 through A033014 for the analog in other bases, A033015 - A033029 for the variants with run lengths >= 2. - M. F. Hasler, Feb 04 2014

Vincenzo Librandi, Table of n, a(n) for n = 1..2000

Select[Range[10000], Union[Length/@Split[IntegerDigits[#, 15]]]=={2}&] (* Vincenzo Librandi, Feb 05 2014 *)

a(n) = 16*A043319(n) (= 16n for n<15). - M. F. Hasler, Feb 02 2014

A043308 a(n)=A033002(n)/5.

Original entry on oeis.org

1, 2, 3, 16, 18, 19, 32, 33, 35, 48, 49, 50, 257, 258, 259, 288, 289, 291, 304, 305, 306, 513, 514, 515, 528, 530, 531, 560, 561, 562, 769, 770, 771, 784, 786, 787, 800, 801, 803, 4112, 4114, 4115, 4128, 4129, 4131, 4144, 4145

Offset: 1

Clark Kimberling

Also: Numbers which, written in base 16, have all digits less than 4 and no two adjacent digits equal. - M. F. Hasler, Feb 03 2014

Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.

is_A043308(n)=(n=[n])&&!until(!n[1],((n=divrem(n[1],16))[2]<4 && n[1]%4!=n[2])||return) \\ M. F. Hasler, Feb 03 2014

A043312 a(n) = A033006(n)/9.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 64, 66, 67, 68, 69, 70, 71, 128, 129, 131, 132, 133, 134, 135, 192, 193, 194, 196, 197, 198, 199, 256, 257, 258, 259, 261, 262, 263, 320, 321, 322, 323, 324, 326, 327, 384, 385, 386, 387, 388, 389, 391, 448, 449

Offset: 1

Clark Kimberling

Also: Numbers which, written in base 64, have only digits 0 through 7, and no two adjacent digits equal. - M. F. Hasler, Feb 03 2014

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.

f:= proc(n) local i;
      seq(64*n+i, i= subs(n mod 64 = NULL, [$0..7]))
end proc:
A:= $1..7: R:= [A]:
for d from 2 to 3 do
  R:= map(f, R);
  A:= A, op(R);
od:
A; # Robert Israel, Jun 11 2019

is_A043312(n)=(n=[n])&&!until(!n[1],((n=divrem(n[1],64))[2]<8 && n[1]%8!=n[2])||return) \\ M. F. Hasler, Feb 03 2014

A043317 a(n)=A033011(n)/14.

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 169, 171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 181, 338, 339, 341, 342, 343, 344, 345, 346, 347, 348, 349, 350, 507, 508, 509, 511, 512, 513, 514, 515, 516, 517, 518, 519, 676, 677, 678

Offset: 1

Clark Kimberling

Also: Numbers which, written in base 169, have all digits less than 13 and no two adjacent digits equal. - M. F. Hasler, Feb 03 2014

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A043307 - A043320, A043291, A033001 - A033014, A033016 - A033029.

Select[Range[700],Max[IntegerDigits[#,169]]<13&&SequenceCount[ IntegerDigits[ #,169],{x_,x_}]==0&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 07 2018 *)

is_A043317(n)=(n=[n])&&!until(!n[1],((n=divrem(n,169))[2]<13 && n[2]!=n[1]%13)||return) \\ M. F. Hasler, Feb 03 2014

cp's OEIS Frontend

A033004 Every run of digits of n in base 6 has length 2.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula

A033005 Every run of digits of n in base 7 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

A033006 Every run of digits of n in base 8 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

Extensions

A033009 Every run of digits of n in base 11 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

A033011 Every run of digits of n in base 13 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

A033012 Every run of digits of n in base 14 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

A033013 Every run of digits of n in base 15 has length 2.

Views

Author

Keywords

Comments

Links

Programs

Mathematica

Formula

A043308 a(n)=A033002(n)/5.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI

A043312 a(n) = A033006(n)/9.

Views

Author

Keywords

Comments

Links