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