A044141 Numbers k such that string 0,3 occurs in the base 7 representation of k but not of k-1.

52, 101, 150, 199, 248, 297, 346, 364, 395, 444, 493, 542, 591, 640, 689, 707, 738, 787, 836, 885, 934, 983, 1032, 1050, 1081, 1130, 1179, 1228, 1277, 1326, 1375, 1393, 1424, 1473, 1522, 1571, 1620, 1669, 1718, 1736, 1767, 1816, 1865, 1914, 1963, 2012, 2061, 2079, 2110

Offset

1,1

Links

Paolo Xausa, Table of n, a(n) for n = 1..10000

Mathematica

A044141Q[k_] := StringContainsQ[IntegerString[k, 7], "03"] && StringFreeQ[IntegerString[k - 1, 7], "03"];
Select[Range[5000], A044141Q] (* Paolo Xausa, Sep 10 2025 *)

Crossrefs

Cf. A007093.

Sequence in context: A274338 A094552 A236461 * A044522 A335479 A272140

Adjacent sequences: A044138 A044139 A044140 * A044142 A044143 A044144

Keyword

nonn,base

Author

Clark Kimberling

Extensions

More terms from Paolo Xausa, Sep 10 2025

Status

approved