%I #7 Jan 28 2020 18:15:22
%S 42,91,140,189,238,287,300,336,385,434,483,532,581,630,643,679,728,
%T 777,826,875,924,973,986,1022,1071,1120,1169,1218,1267,1316,1329,1365,
%U 1414,1463,1512,1561,1610,1659,1672,1708,1757,1806
%N Numbers n such that string 6,0 occurs in the base 7 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{6,0}]>0,1,0],{n,2000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jan 28 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|