|
%I #9 Mar 06 2022 13:15:22
%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 6.
%H Harvey P. Dale, <a href="/A043787/b043787.txt">Table of n, a(n) for n = 1..5000</a>
%t Select[Range[700],Mod[Length[Split[IntegerDigits[#,3]]],6]==2&] (* _Harvey P. Dale_, Mar 06 2022 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
