%I #7 Jun 29 2018 18:54:39
%S 65,129,193,257,321,385,449,513,520,577,641,705,769,833,897,961,1025,
%T 1032,1089,1153,1217,1281,1345,1409,1473,1537,1544,1601,1665,1729,
%U 1793,1857,1921,1985,2049,2056,2113,2177,2241,2305
%N Numbers n such that string 0,1 occurs in the base 8 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,8],{0,1}]>0,1,0],{n,2400}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 29 2018 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|