|
%I #6 Apr 19 2023 13:05:53
%S 91,92,96,97,100,101,102,104,138,140,141,142,145,146,150,151,172,173,
%T 177,178,181,182,183,185,192,194,195,196,208,209,210,212,253,254,258,
%U 259,262,263,264,266,271,272,274,278,280,281
%N Number of runs in the base 3 representation of n is congruent to 5 mod 6.
%t Select[Range[300],Mod[Length[Split[IntegerDigits[#,3]]],6]==5&] (* _Harvey P. Dale_, Apr 19 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
