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

%I #14 Feb 05 2014 07:07:26

%S 7,14,21,28,35,252,266,273,280,287,504,511,525,532,539,756,763,770,

%T 784,791,1008,1015,1022,1029,1043,1260,1267,1274,1281,1288,9079,9086,

%U 9093,9100,9107,9576,9583,9597,9604,9611,9828,9835

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

%C 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

%H Vincenzo Librandi, <a href="/A033004/b033004.txt">Table of n, a(n) for n = 1..700</a>

%F a(n) = 7*A043310(n) (= 7*n for n<6). - _M. F. Hasler_, Feb 02 2014

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

%Y Cf. A033007, A033010.

%K nonn,base

%O 1,1

%A _Clark Kimberling_