%I #7 Nov 22 2018 10:59:35
%S 1,2,3,5,10,15,21,42,63,85,170,255,341,682,1023,1365,2730,4095,5461,
%T 10922,16383,21845,43690,65535,87381,174762,262143,349525,699050,
%U 1048575,1118481,1118482,1118483,1118488,1118489,1118491
%N Numbers n such that number of runs in the base 4 representation of n is congruent to 1 mod 10.
%t Select[Range[112*10^4],Mod[Length[Split[IntegerDigits[#,4]]],10]==1&] (* _Harvey P. Dale_, Nov 22 2018 *)
%K nonn,base
%O 1,2
%A _Clark Kimberling_
|