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

4, 14, 22, 31, 44, 49, 58, 68, 76, 85, 95, 103, 134, 139, 149, 157, 166, 176, 184, 193, 206, 211, 220, 230, 238, 247, 257, 265, 274, 287, 292, 301, 311, 319, 404, 409, 419, 427, 436, 449, 454, 463, 473, 481, 490, 500, 508, 517

Offset

1,1

Links

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

Mathematica

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 3], {1, 1}]>0, 1, 0], {n, 600}], {1, 0}]][[1]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *) (* Harvey P. Dale, Aug 30 2015 *)

Crossrefs

Sequence in context: A051806 A034051 A199984 * A298008 A279414 A199987

Adjacent sequences: A044434 A044435 A044436 * A044438 A044439 A044440

Keyword

nonn,base

Author

Clark Kimberling

Status

approved