login
A044433
Numbers n such that string 0,0 occurs in the base 3 representation of n but not of n+1.
0
9, 18, 29, 36, 45, 56, 63, 72, 90, 99, 110, 117, 126, 137, 144, 153, 171, 180, 191, 198, 207, 218, 225, 234, 272, 279, 288, 299, 306, 315, 333, 342, 353, 360, 369, 380, 387, 396, 414, 423, 434, 441, 450, 461, 468, 477, 515, 522
OFFSET
1,1
MATHEMATICA
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {0, 0}]>0, 1, 0], {n, 600}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 09 2018 *)
CROSSREFS
Sequence in context: A157644 A107223 A194152 * A161570 A140089 A183444
KEYWORD
nonn,base
STATUS
approved