%I #11 Aug 27 2021 07:08:59
%S 20,102,120,209,220,302,320,402,420,502,520,602,620,702,720,802,820,
%T 902,920,1002,1029,1102,1120,1209,1220,1302,1320,1402,1420,1502,1520,
%U 1602,1620,1702,1720,1802,1820,1902,1920,2099,2102
%N Numbers k such that 0 and 2 occur juxtaposed in the base-10 representation of k but not of k+1.
%t Select[Range[2200],MemberQ[Sort/@Partition[IntegerDigits[#],2,1],{0,2}] && !MemberQ[Sort/@Partition[IntegerDigits[#+1],2,1],{0,2}]&] (* _Harvey P. Dale_, Sep 15 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_