|
%I #7 May 23 2014 16:25:12
%S 16,80,135,144,208,272,336,400,464,528,592,647,656,720,784,848,912,
%T 976,1087,1104,1159,1168,1232,1296,1360,1424,1488,1552,1616,1671,1680,
%U 1744,1808,1872,1936,2000,2064,2128,2183,2192,2256
%N Numbers n such that string 2,0 occurs in the base 8 representation of n but not of n+1.
%t Select[Range[2300],MemberQ[Partition[IntegerDigits[#,8],2,1],{2,0}] && !MemberQ[Partition[IntegerDigits[#+1,8],2,1],{2,0}]&] (* _Harvey P. Dale_, May 23 2014 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
