%I #19 May 19 2021 12:59:34
%S 77,158,239,320,401,482,563,644,701,725,806,887,968,1049,1130,1211,
%T 1292,1373,1430,1454,1535,1616,1697,1778,1859,1940,2021,2102,2159,
%U 2183,2264,2345,2426,2507,2588,2669,2750,2831,2888,2912,2993,3074,3155,3236,3317
%N Numbers n such that string 8,5 occurs in the base 9 representation of n but not of n+1.
%H Georg Fischer, <a href="/A044709/b044709.txt">Table of n, a(n) for n = 1..1000</a>
%p q:= n-> searchtext("58", cat("", convert(n, base, 9)[]))>0:
%p a:= proc(n) option remember; local k; for k from 1+
%p `if`(n=1, 0, a(n-1)) while not q(k) or q(k+1) do od; k
%p end:
%p seq(a(n), n=1..50); # _Alois P. Heinz_, Jun 27 2019
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,9],{8,5}]>0,1,0],{n,3500}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, May 19 2021 *)
%Y Cf. A007095, A044328.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
%E Corrected and extended by _Harvey P. Dale_, Dec 24 2015
%E Previous values restored by _Georg Fischer_, Jun 27 2019