|
%I #8 Nov 21 2013 12:47:03
%S 59,140,221,302,383,464,539,545,626,707,788,869,950,1031,1112,1193,
%T 1268,1274,1355,1436,1517,1598,1679,1760,1841,1922,1997,2003,2084,
%U 2165,2246,2327,2408,2489,2570,2651,2726,2732,2813
%N Numbers n such that string 6,5 occurs in the base 9 representation of n but not of n+1.
%t Select[Range[3000],MemberQ[Partition[IntegerDigits[#,9],2,1],{6,5}] && !MemberQ[Partition[IntegerDigits[#+1,9],2,1],{6,5}]&] (* _Harvey P. Dale_, Mar 26 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
