|
%I #7 Sep 17 2019 10:52:24
%S 37,86,135,184,233,259,282,331,380,429,478,527,576,602,625,674,723,
%T 772,821,870,919,945,968,1017,1066,1115,1164,1213,1262,1288,1311,1360,
%U 1409,1458,1507,1556,1605,1631,1654,1703,1752,1801
%N Numbers n such that string 5,2 occurs in the base 7 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{5,2}]>0,1,0],{n,2000}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 17 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
