|
%I #12 Aug 26 2021 03:15:48
%S 31,59,95,123,159,187,223,255,287,315,351,379,415,443,479,507,543,571,
%T 607,635,671,699,735,767,799,827,863,891,927,955,991,1019,1055,1083,
%U 1119,1147,1183,1211,1247,1279,1311,1339,1375
%N Numbers k such that 3 and 7 occur juxtaposed in the base-8 representation of k but not of k+1.
%t Select[Range[1400],MemberQ[Sort/@Partition[IntegerDigits[#,8],2,1], {3,7}] && !MemberQ[Sort/@Partition[IntegerDigits[#+1,8],2,1],{3,7}]&] (* _Harvey P. Dale_, Oct 09 2011 *)
%Y Cf. A007094.
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
