%I #7 Jul 29 2023 17:13:13
%S 24,60,96,132,149,168,204,240,276,312,348,365,384,420,456,492,528,564,
%T 581,600,636,672,708,744,780,797,816,852,899,924,960,996,1013,1032,
%U 1068,1104,1140,1176,1212,1229,1248,1284,1320,1356
%N Numbers n such that string 4,0 occurs in the base 6 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{4,0}]>0,1,0],{n,1400}],{1,-0}][[;;,1]] (* _Harvey P. Dale_, Jul 29 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_