|
%I #8 Nov 21 2013 12:47:03
%S 51,132,213,294,375,456,467,537,618,699,780,861,942,1023,1104,1185,
%T 1196,1266,1347,1428,1509,1590,1671,1752,1833,1914,1925,1995,2076,
%U 2157,2238,2319,2400,2481,2562,2643,2654,2724,2805
%N Numbers n such that string 5,6 occurs in the base 9 representation of n but not of n+1.
%t Select[Range[3000],MemberQ[Partition[IntegerDigits[#,9],2,1],{5,6}] && !MemberQ[Partition[IntegerDigits[#+1,9],2,1],{5,6}]&] (* _Harvey P. Dale_, Sep 29 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
