A044228 Numbers n such that string 5,1 occurs in the base 8 representation of n but not of n-1.

41, 105, 169, 233, 297, 328, 361, 425, 489, 553, 617, 681, 745, 809, 840, 873, 937, 1001, 1065, 1129, 1193, 1257, 1321, 1352, 1385, 1449, 1513, 1577, 1641, 1705, 1769, 1833, 1864, 1897, 1961, 2025, 2089, 2153, 2217, 2281, 2345

Offset

1,1

Links

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

Mathematica

Transpose[SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {5, 1}] > 0, 1, 0], {n, 2500}], {0, 1}]][[2]] (* The program uses the SequencePosition and SequenceCount functions from Mathematica version 10 *)  (* Harvey P. Dale, May 06 2015 *)

Crossrefs

Sequence in context: A123043 A142014 A115163 * A044609 A211494 A142054

Adjacent sequences: A044225 A044226 A044227 * A044229 A044230 A044231

Keyword

nonn,base

Author

Clark Kimberling

Status

approved