login
A043102
Numbers k such that 0 and 3 occur juxtaposed in the base-4 representation of k but not of k-1.
0
12, 19, 28, 35, 44, 48, 60, 67, 76, 83, 92, 99, 108, 112, 124, 131, 140, 147, 156, 163, 172, 176, 188, 192, 211, 220, 227, 236, 240, 252, 259, 268, 275, 284, 291, 300, 304, 323, 332, 339, 348, 355, 364, 368, 380, 387, 396, 403
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 4], {0, 3}]>0 || SequenceCount[IntegerDigits[n, 4], {3, 0}]>0, 1, 0], {n, 500}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 21 2021 *)
CROSSREFS
Cf. A007090.
Sequence in context: A053752 A291939 A349986 * A039279 A045067 A043882
KEYWORD
nonn,base
STATUS
approved