A044483 - OEIS

%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_