|
%I #12 Feb 14 2014 07:44:37
%S 81,162,243,324,405,486,567,648,737,810,891,972,1053,1134,1215,1296,
%T 1377,1466,1539,1620,1701,1782,1863,1944,2025,2106,2195,2268,2349,
%U 2430,2511,2592,2673,2754,2835,2924,2997,3078,3159
%N Numbers n such that string 0,0 occurs in the base 9 representation of n but not of n+1.
%t Select[Range[3200],MemberQ[Partition[IntegerDigits[#,9],2,1],{0,0}] && !MemberQ[Partition[IntegerDigits[#+1,9],2,1],{0,0}]&] (* _Harvey P. Dale_, Jun 20 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
