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