login
Base 11 run lengths alternate: even, odd, even,...
0

%I #6 Jul 24 2017 20:08:44

%S 12,24,36,48,60,72,84,96,108,120,132,134,135,136,137,138,139,140,141,

%T 142,264,265,267,268,269,270,271,272,273,274,396,397,398,400,401,402,

%U 403,404,405,406,528,529,530,531,533,534,535

%N Base 11 run lengths alternate: even, odd, even,...

%t rla11Q[n_]:=Module[{a=Boole[EvenQ/@(Length/@Split[IntegerDigits[n,11]])]}, a == PadRight[{},Length[a],{1,0}]]; Select[Range[600],rla11Q] (* _Harvey P. Dale_, Jul 24 2017 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_