A044167 - OEIS

%I #11 Sep 10 2025 06:52:10

%S 29,78,127,176,203,225,274,323,372,421,470,519,546,568,617,666,715,

%T 764,813,862,889,911,960,1009,1058,1107,1156,1205,1232,1254,1303,1352,

%U 1401,1421,1499,1548,1575,1597,1646,1695,1744,1793,1842,1891,1918,1940,1989,2038,2087

%N Numbers k such that string 4,1 occurs in the base 7 representation of k but not of k-1.

%H Paolo Xausa, <a href="/A044167/b044167.txt">Table of n, a(n) for n = 1..10000</a>

%t A044167Q[k_] := StringContainsQ[IntegerString[k, 7], "41"] && StringFreeQ[IntegerString[k - 1, 7], "41"];

%t Select[Range[5000], A044167Q] (* _Paolo Xausa_, Sep 10 2025 *)

%Y Cf. A007093.

%K nonn,base

%O 1,1

%A _Clark Kimberling_

%E More terms from _Paolo Xausa_, Sep 10 2025