login
A044455
Numbers n such that string 3,1 occurs in the base 4 representation of n but not of n+1.
0
13, 29, 45, 55, 61, 77, 93, 109, 119, 125, 141, 157, 173, 183, 189, 205, 223, 237, 247, 253, 269, 285, 301, 311, 317, 333, 349, 365, 375, 381, 397, 413, 429, 439, 445, 461, 479, 493, 503, 509, 525, 541, 557, 567, 573, 589, 605
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 4], {3, 1}]>0, 1, 0], {n, 700}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Sep 08 2019 *)
CROSSREFS
Sequence in context: A228069 A351387 A044074 * A082285 A243138 A153422
KEYWORD
nonn,base
STATUS
approved