|
%I #8 Nov 21 2013 12:47:03
%S 67,131,195,259,323,387,451,515,543,579,643,707,771,835,899,963,1027,
%T 1055,1091,1155,1219,1283,1347,1411,1475,1539,1567,1603,1667,1731,
%U 1795,1859,1923,1987,2051,2079,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[2500],MemberQ[Partition[IntegerDigits[#,8],2,1],{0,3}] && !MemberQ[Partition[IntegerDigits[#+1,8],2,1],{0,3}]&] (* _Harvey P. Dale_, Jul 26 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
