The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #7 May 01 2015 11:20:43
%S 86,167,248,329,410,491,572,653,734,782,815,896,977,1058,1139,1220,
%T 1301,1382,1463,1511,1544,1625,1706,1787,1868,1949,2030,2111,2192,
%U 2240,2273,2354,2435,2516,2597,2678,2759,2840,2921
%N Numbers n such that string 0,5 occurs in the base 9 representation of n but not of n+1.
%H Harvey P. Dale, <a href="/A044637/b044637.txt">Table of n, a(n) for n = 1..1000</a>
%t Transpose[SequencePosition[Table[If[MemberQ[Partition[IntegerDigits[n,9],2,1],{0,5}],1,0],{n,3000}],{1,0}]][[1]] (* The program uses the SequencePosition function from Mathematica version 10 *) (* _Harvey P. Dale_, May 01 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_