%I #9 Jul 08 2019 12:15:14

%S 85,166,247,328,409,490,571,652,733,773,814,895,976,1057,1138,1219,

%T 1300,1381,1462,1502,1543,1624,1705,1786,1867,1948,2029,2110,2191,

%U 2231,2272,2353,2434,2515,2596,2677,2758,2839,2920

%N Numbers n such that string 0,4 occurs in the base 9 representation of n but not of n+1.

%H Harvey P. Dale, <a href="/A044636/b044636.txt">Table of n, a(n) for n = 1..1000</a>

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{0,4}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 08 2019 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_