|
%I #7 Nov 28 2015 08:48:57
%S 5,20,37,53,69,80,101,117,133,148,165,181,197,212,229,245,261,276,293,
%T 309,320,389,404,421,437,453,468,485,501,517,532,549,565,581,592,613,
%U 629,645,660,677,693,709,724,741,757,773,788
%N Numbers n such that string 1,1 occurs in the base 4 representation of n but not of n-1.
%t Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{1,1}]>0,1,0],{n,800}],{0,1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* _Harvey P. Dale_, Nov 28 2015 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
