%I #7 Nov 18 2012 12:51:08
%S 67,131,195,259,323,387,451,515,536,579,643,707,771,835,899,963,1027,
%T 1048,1091,1155,1219,1283,1347,1411,1475,1539,1560,1603,1667,1731,
%U 1795,1859,1923,1987,2051,2072,2115,2179,2243,2307
%N Numbers n such that string 0,3 occurs in the base 8 representation of n but not of n-1.
%t Select[Range[2400],MemberQ[Partition[IntegerDigits[#,8],2,1],{0,3}]&&!MemberQ[Partition[IntegerDigits[#-1,8],2,1],{0,3}]&] (* _Harvey P. Dale_, Nov 18 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_