|
%I #7 Jul 05 2019 12:18:53
%S 18,34,50,66,72,82,98,114,130,136,146,162,178,194,200,210,226,242,258,
%T 264,274,288,306,322,328,338,354,370,386,392,402,418,434,450,456,466,
%U 482,498,514,520,530,544,562,578,584,594,610
%N Numbers n such that string 0,2 occurs in the base 4 representation of n but not of n-1.
%t SequencePosition[Table[If[SequenceCount[IntegerDigits[n,4],{0,2}]>0,1,0],{n,700}],{0,1}][[All,2]] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jul 05 2019 *)
%K nonn,base
%O 1,1
%A _Clark Kimberling_
|
