|
%I #11 Jan 17 2023 11:42:40
%S 58,85,158,185,258,285,358,385,458,485,558,589,658,685,758,785,859,
%T 885,958,985,1058,1085,1158,1185,1258,1285,1358,1385,1458,1485,1558,
%U 1589,1658,1685,1758,1785,1859,1885,1958,1985,2058
%N Numbers k such that 5 and 8 occur juxtaposed in the base-10 representation of k but not of k+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{5,8}]>0 || SequenceCount[ IntegerDigits[n],{8,5}]>0,1,0],{n,2200}],{1,0}][[All,1]] (* _Harvey P. Dale_, Jan 17 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
