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

33, 97, 161, 225, 271, 289, 353, 417, 481, 545, 609, 673, 737, 783, 801, 865, 929, 993, 1057, 1121, 1185, 1249, 1295, 1313, 1377, 1441, 1505, 1569, 1633, 1697, 1761, 1807, 1825, 1889, 1953, 2017, 2081, 2175, 2209, 2273, 2319

Offset

1,1

Links

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

Mathematica

Select[Range[2500], MemberQ[Partition[IntegerDigits[#, 8], 2, 1], {4, 1}] && !MemberQ[Partition[ IntegerDigits[#+1, 8], 2, 1], {4, 1}]&] (* Harvey P. Dale, Sep 08 2011 *)
SequencePosition[Table[If[SequenceCount[IntegerDigits[n, 8], {4, 1}]>0, 1, 0], {n, 2500}], {1, 0}][[;; , 1]] (* Harvey P. Dale, Jan 03 2024 *)

Crossrefs

Sequence in context: A098938 A098923 A044220 * A195315 A098441 A032650

Adjacent sequences: A044598 A044599 A044600 * A044602 A044603 A044604

Keyword

nonn,base

Author

Clark Kimberling

Status

approved