|
%I #7 Jul 01 2023 12:10:53
%S 36,72,108,144,180,221,252,288,324,360,396,437,468,504,540,576,612,
%T 653,684,720,756,792,828,869,900,936,972,1008,1044,1085,1116,1152,
%U 1188,1224,1260,1332,1368,1404,1440,1476,1517,1548,1584
%N Numbers n such that string 0,0 occurs in the base 6 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{0,0}]>0,1,0],{n,2000}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Jul 01 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
