|
%I #7 Feb 26 2020 13:52:38
%S 9,79,137,201,265,329,393,457,521,639,649,713,777,841,905,969,1033,
%T 1103,1161,1225,1289,1353,1417,1481,1545,1615,1673,1737,1801,1865,
%U 1929,1993,2057,2127,2185,2249,2313,2377,2441,2505
%N Numbers n such that string 1,1 occurs in the base 8 representation of n but not of n+1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{1,1}]>0,1,0],{n,3000}],{1,0}][[All,1]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Feb 26 2020 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
