%I #11 Aug 29 2021 01:55:38
%S 48,84,148,184,248,284,348,384,448,489,548,584,648,684,748,784,849,
%T 884,948,984,1048,1084,1148,1184,1248,1284,1348,1384,1448,1489,1548,
%U 1584,1648,1684,1748,1784,1849,1884,1948,1984,2048
%N Numbers k such that 4 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{4,8}]>0 || SequenceCount[ IntegerDigits[n],{8,4}]>0,1,0],{n,2200}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Aug 21 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|