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

11, 75, 95, 139, 203, 267, 331, 395, 459, 523, 587, 607, 651, 767, 779, 843, 907, 971, 1035, 1099, 1119, 1163, 1227, 1291, 1355, 1419, 1483, 1547, 1611, 1631, 1675, 1739, 1803, 1867, 1931, 1995, 2059, 2123, 2143, 2187, 2251

Offset

1,1

Links

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

Mathematica

Select[Range[2300], MemberQ[Partition[IntegerDigits[#, 8], 2, 1], {1, 3}] && !MemberQ[Partition[IntegerDigits[#+1, 8], 2, 1], {1, 3}]&] (* Harvey P. Dale, Oct 10 2013 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {1, 3}]>0, 1, 0], {n, 2300}], {1, 0}][[All, 1]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Feb 05 2019 *)

Crossrefs

Sequence in context: A121784 A213165 A044198 * A231917 A289419 A027226

Adjacent sequences: A044576 A044577 A044578 * A044580 A044581 A044582

Keyword

nonn,base

Author

Clark Kimberling

Status

approved