A044438 Numbers n such that string 1,2 occurs in the base 3 representation of n but not of n+1.

5, 17, 23, 32, 53, 59, 71, 77, 86, 98, 104, 113, 161, 167, 179, 185, 194, 215, 221, 233, 239, 248, 260, 266, 275, 296, 302, 314, 320, 329, 341, 347, 356, 485, 491, 503, 509, 518, 539, 545, 557, 563, 572, 584, 590, 599, 647, 653

Offset

1,1

Links

Table of n, a(n) for n=1..48.

Mathematica

SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {1, 2}]>0, 1, 0], {n, 700}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Mar 19 2018 *)

Crossrefs

Sequence in context: A067377 A337095 A153504 * A101414 A105884 A019410

Adjacent sequences: A044435 A044436 A044437 * A044439 A044440 A044441

Keyword

nonn,base

Author

Clark Kimberling

Status

approved