A044797 - OEIS

%I #7 Apr 09 2022 13:33:37

%S 84,184,284,384,484,584,684,784,849,884,984,1084,1184,1284,1384,1484,

%T 1584,1684,1784,1849,1884,1984,2084,2184,2284,2384,2484,2584,2684,

%U 2784,2849,2884,2984,3084,3184,3284,3384,3484,3584

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

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{8,4}]>0,1,0],{n,4000}],{1,0}][[All,1]] (* _Harvey P. Dale_, Apr 09 2022 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_