%I #10 Sep 22 2025 09:02:17

%S 7,42,79,115,151,187,223,252,295,331,367,403,439,474,511,547,583,619,

%T 655,690,727,763,799,835,871,906,943,979,1015,1051,1087,1122,1159,

%U 1195,1231,1267,1303,1338,1375,1411,1447,1483,1512,1735,1770,1807,1843,1879,1915,1951

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

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

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

%t Select[Range[5000], A044109Q] (* _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