|
%I #7 Mar 20 2020 19:54:21
%S 3,5,6,7,9,12,14,17,18,22,24,25,27,36,39,41,44,53,54,67,72,76,78,79,
%T 81,108,117,120,122,125,134,161,162,202,216,229,234,238,240,241,243,
%U 324,351,360,363,365,368,377,404,485,486,607,648
%N Numbers n such that number of runs in base 3 representation of n is congruent to 2 mod 5.
%t Select[Range[1000],Mod[Length[Split[IntegerDigits[#,3]]],5]==2&] (* _Harvey P. Dale_, Mar 20 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
