login
A044055
Numbers n such that string 1,0 occurs in the base 3 representation of n but not of n-1.
1
3, 9, 21, 27, 48, 57, 63, 75, 81, 129, 138, 144, 156, 165, 171, 183, 189, 210, 219, 225, 237, 243, 372, 381, 387, 399, 408, 414, 426, 432, 453, 462, 468, 480, 489, 495, 507, 513, 534, 543, 549, 561, 567, 615, 624, 630, 642, 651
OFFSET
1,1
LINKS
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {1, 0}]>0, 1, 0], {n, 700}], {0, 1}][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 15 2021 *)
CROSSREFS
Sequence in context: A191177 A275450 A244972 * A029542 A014962 A014945
KEYWORD
nonn,base
STATUS
approved