login
Numbers k such that 0 and 2 occur juxtaposed in the base-10 representation of k but not of k+1.
0

%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_