A033007 -id:A033007 - cp's OEIS frontend

A043313 a(n)=A033007(n)/10.

1, 2, 3, 4, 5, 6, 7, 8, 81, 83, 84, 85, 86, 87, 88, 89, 162, 163, 165, 166, 167, 168, 169, 170, 243, 244, 245, 247, 248, 249, 250, 251, 324, 325, 326, 327, 329, 330, 331, 332, 405, 406, 407, 408, 409, 411, 412, 413, 486, 487, 488

Offset: 1

Clark Kimberling

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

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

is_A043313(n)=(n=[n])&&!until(!n[1],((n=divrem(n[1],81))[2]<9 && n[1]%9!=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

A043313 a(n)=A033007(n)/10.

Views

Author

Keywords

Comments

Crossrefs

Programs

PARI