A033010 -id:A033010 - cp's OEIS frontend

A043316 a(n)=s(n)/13, where s=A033010.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 144, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 288, 289, 291, 292, 293, 294, 295, 296, 297, 298, 299, 432, 433, 434, 436, 437, 438, 439, 440, 441, 442, 443, 576, 577, 578, 579, 581, 582

Offset: 1

Clark Kimberling

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

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

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

Original entry on oeis.org

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

cp's OEIS Frontend

A043316 a(n)=s(n)/13, where s=A033010.

Views

Author

Keywords

Crossrefs

Programs

PARI

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

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula