|
%I #7 May 28 2017 10:05:12
%S 8,44,48,80,116,152,188,224,260,264,288,332,368,404,440,476,480,512,
%T 548,584,620,656,692,696,728,764,800,836,872,908,912,944,980,1016,
%U 1052,1088,1124,1128,1160,1196,1232,1268,1304,1340,1344
%N Numbers n such that string 1,2 occurs in the base 6 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,6],{1,2}]>0,1,0],{n,1500}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 28 2017 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
