login
a(n) = n + floor(n*r/s) + floor(n*t/s), where r = e^(1/4); s = e^(1/2); t = e^(3/4).
4

%I #8 Jan 18 2025 09:26:05

%S 2,5,8,12,14,17,20,24,27,29,33,36,39,41,45,48,51,55,57,60,63,67,69,72,

%T 76,79,82,84,88,91,94,97,100,103,106,110,112,115,119,122,124,127,131,

%U 134,137,140,143,146,149,152,155,158,162,165,167,170,174,177,179

%N a(n) = n + floor(n*r/s) + floor(n*t/s), where r = e^(1/4); s = e^(1/2); t = e^(3/4).

%C This sequence and A379411 and A379413 partition the positive integers.

%F a(n) = n + floor(n/r) + floor(n*r), where r = e^(1/4).

%t r = E^(1/4); s = E^(1/2); t = E^(3/4);

%t Table[n + Floor[n*s/r] + Floor[n*t/r], {n, 1, 120}] (* A379411 *)

%t Table[n + Floor[n*r/s] + Floor[n*t/s], {n, 1, 120}] (* A379412 *)

%t Table[n + Floor[n*r/t] + Floor[n*s/t], {n, 1, 120}] (* A379413 *)

%Y Cf. A001113, A378142, A379411, A379413.

%K nonn

%O 1,1

%A _Clark Kimberling_, Jan 15 2025