|
%I #10 Dec 29 2023 14:02:21
%S 20,102,120,200,220,302,320,402,420,502,520,602,620,702,720,802,820,
%T 902,920,1002,1020,1102,1120,1200,1220,1302,1320,1402,1420,1502,1520,
%U 1602,1620,1702,1720,1802,1820,1902,1920,2000,2102
%N Numbers k such that 0 and 2 occur juxtaposed in the base-10 representation of k but not of k-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n],{0,2}]>0 || SequenceCount[ IntegerDigits[ n],{2,0}]>0,1,0],{n,2200}],{0,1}][[;;,2]] (* _Harvey P. Dale_, Dec 29 2023 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
