login
A044071
Numbers n such that string 2,2 occurs in the base 4 representation of n but not of n-1.
0
10, 26, 40, 58, 74, 90, 104, 122, 138, 154, 160, 186, 202, 218, 232, 250, 266, 282, 296, 314, 330, 346, 360, 378, 394, 410, 416, 442, 458, 474, 488, 506, 522, 538, 552, 570, 586, 602, 616, 634, 640, 714, 730, 744, 762, 778, 794
OFFSET
1,1
MATHEMATICA
Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 4], {2, 2}]>0, 1, 0], {n, 1000}], {0, 1}]][[2]] (* The program uses the SequencePosition and Sequence Count functions from Mathematica version 10 *) (* Harvey P. Dale, Feb 23 2016 *)
CROSSREFS
Sequence in context: A071348 A361259 A055042 * A186279 A054315 A113770
KEYWORD
nonn,base
STATUS
approved