login
Numbers n such that string 2,1 occurs in the base 10 representation of n but not of n+1.
0

%I #8 Nov 21 2013 12:47:04

%S 21,121,219,221,321,421,521,621,721,821,921,1021,1121,1219,1221,1321,

%T 1421,1521,1621,1721,1821,1921,2021,2199,2219,2221,2321,2421,2521,

%U 2621,2721,2821,2921,3021,3121,3219,3221,3321,3421

%N Numbers n such that string 2,1 occurs in the base 10 representation of n but not of n+1.

%t Select[Range[3500],MemberQ[Partition[IntegerDigits[#],2,1],{2,1}] && !MemberQ[Partition[IntegerDigits[#+1],2,1],{2,1}]&] (* _Harvey P. Dale_, Sep 16 2011 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_