A396056 - OEIS

%I #16 May 19 2026 03:10:53

%S 16,33,50,67,84,86,102,119,136,153,170,173,188,205,222,239,256,260,

%T 274,275,292,309,326,343,348,361,378,395,412,429,435,447,464,481,498,

%U 515,522,533,550,551,568,585,602,610,620,637,654,671,673,689,698,707,724

%N Numbers not of the form Sum_{k=1..m} floor(m/k^4).

%C Complement of A013938.

%H Chai Wah Wu, <a href="/A396056/b396056.txt">Table of n, a(n) for n = 1..10000</a>

%t Complement[Range[Last[#]], #] &@ Table[Sum[Floor[n/k^4], {k, n}], {n, 700}] (* _Michael De Vlieger_, May 16 2026 *)

%o (Python)

%o # uses Python function from A013938

%o from itertools import count, islice

%o def A396056_gen(): # generator of terms

%o     c = 0

%o     for i in count(0):

%o         if (m:=A013938(i))!=i+c:

%o             for j in range(i+c,m):

%o                 yield j

%o             c = m-i

%o A396056_list = list(islice(A396056_gen(), 60))

%Y Cf. A013938, A396046.

%K nonn

%O 1,1

%A _Chai Wah Wu_, May 14 2026