login
Numbers k such that 3 and 7 occur juxtaposed in the base-8 representation of k but not of k+1.
0

%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_