A044106 - OEIS

%I #9 Sep 23 2025 03:07:23

%S 40,76,112,148,184,220,240,256,292,328,364,400,436,456,472,508,544,

%T 580,616,652,672,688,724,760,796,832,868,888,904,940,976,1012,1048,

%U 1084,1104,1120,1156,1192,1228,1264,1300,1320,1336,1372,1408,1440,1480,1516,1536,1552

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

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

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

%t Select[Range[5000], A044106Q] (* _Paolo Xausa_, Sep 23 2025 *)

%Y Cf. A007092.

%K nonn,base

%O 1,1

%A _Clark Kimberling_

%E More terms from _Paolo Xausa_, Sep 23 2025