A044499 - OEIS

%I #9 May 02 2019 11:21:56

%S 16,52,88,101,124,160,196,232,268,304,317,340,376,412,448,484,520,533,

%T 556,611,628,664,700,736,749,772,808,844,880,916,952,965,988,1024,

%U 1060,1096,1132,1168,1181,1204,1240,1276,1312,1348

%N Numbers n such that string 2,4 occurs in the base 6 representation of n but not of n+1.

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{2,4}]>0,1,0],{n,1500}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Oct 10 2017 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_