|
%I #7 Nov 26 2012 11:42:40
%S 43,107,171,235,299,351,363,427,491,555,619,683,747,811,863,875,939,
%T 1003,1067,1131,1195,1259,1323,1375,1387,1451,1515,1579,1643,1707,
%U 1771,1835,1887,1899,1963,2027,2091,2155,2219,2283,2347
%N Numbers n such that string 5,3 occurs in the base 8 representation of n but not of n+1.
%t s53Q[n_]:=MemberQ[Partition[IntegerDigits[n,8],2,1],{5,3}] && !MemberQ[ Partition[IntegerDigits[n+1,8],2,1],{5,3}]; Select[Range[2500],s53Q] (* _Harvey P. Dale_, Nov 26 2012 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
