The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #9 Sep 19 2016 16:50:03
%S 54,103,152,201,250,299,348,384,397,446,495,544,593,642,691,727,740,
%T 789,838,887,936,985,1034,1070,1083,1132,1181,1230,1279,1328,1377,
%U 1413,1426,1475,1524,1573,1622,1671,1720,1756,1769,1818
%N Numbers n such that string 0,5 occurs in the base 7 representation of n but not of n+1.
%H Harvey P. Dale, <a href="/A044524/b044524.txt">Table of n, a(n) for n = 1..1000</a>
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,7],{0,5}]>0,1,0],{n,2000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Sep 19 2016 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_