A044108 - OEIS

%I #10 Sep 22 2025 09:05:34

%S 6,36,78,114,150,186,216,294,330,366,402,438,468,510,546,582,618,654,

%T 684,726,762,798,834,870,900,942,978,1014,1050,1086,1116,1158,1194,

%U 1230,1266,1296,1590,1626,1662,1698,1734,1764,1806,1842,1878,1914,1950,1980,2022,2058

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

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

%t A044108Q[k_] := StringContainsQ[IntegerString[k, 6], "10"] && StringFreeQ[IntegerString[k - 1, 6], "10"];

%t Select[Range[5000], A044108Q] (* _Paolo Xausa_, Sep 22 2025 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_

%E More terms from _Paolo Xausa_, Sep 22 2025