|
%I #8 Nov 21 2013 12:47:03
%S 46,110,174,238,302,366,375,430,494,558,622,686,750,814,878,887,942,
%T 1006,1070,1134,1198,1262,1326,1390,1399,1454,1518,1582,1646,1710,
%U 1774,1838,1902,1911,1966,2030,2094,2158,2222,2286,2350
%N Numbers n such that string 5,6 occurs in the base 8 representation of n but not of n+1.
%t Select[Range[2500],MemberQ[Partition[IntegerDigits[#,8],2,1],{5,6}] && !MemberQ[Partition[IntegerDigits[#+1,8],2,1],{5,6}]&] (* _Harvey P. Dale_, Oct 21 2011 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
