login
Numbers n such that string 7,6 occurs in the base 8 representation of n but not of n+1.
0

%I #10 Sep 18 2024 18:03:32

%S 62,126,190,254,318,382,446,503,510,574,638,702,766,830,894,958,1015,

%T 1022,1086,1150,1214,1278,1342,1406,1470,1527,1534,1598,1662,1726,

%U 1790,1854,1918,1982,2039,2046,2110,2174,2238,2302

%N Numbers n such that string 7,6 occurs in the base 8 representation of n but not of n+1.

%t Select[Range[2500],MemberQ[Partition[IntegerDigits[#,8],2,1],{7,6}] && !MemberQ[Partition[ IntegerDigits[ #+1,8],2,1],{7,6}]&] (* _Harvey P. Dale_, Oct 01 2011 *)

%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{7,6}]>0,1,0],{n,2500}],{1,0}][[;;,1]] (* _Harvey P. Dale_, Sep 18 2024 *)

%K nonn,base

%O 1,1

%A _Clark Kimberling_