This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A379416 #4 Jan 20 2025 22:46:04
%S A379416 1,4,6,9,10,13,16,18,20,22,25,27,29,32,34,37,38,41,43,46,48,50,53,55,
%T A379416 57,60,62,65,67,69,71,74,77,78,81,83,86,87,90,93,95,97,99,102,104,106,
%U A379416 109,111,114,115,118,121,123,126,127,130,132,135,137,139,142
%N A379416 a(n) = n + [n*r/t] + [n*s/t], where r = 3^(1/4); s = 3^(1/2); t = 3^(3/4) and [ ] = floor.
%C A379416 This sequence and A379414 and A379415 partition the positive integers; see A184812 for a proof.
%F A379416 a(n) = n + [n*r/t] + [n*s/t], where r = 3^(1/4); s = 3^(1/2); t = 3^(3/4) and [ ] = floor.
%F A379416 a(n) = n + [n/r] + [n/r^2], where r = 3^(1/4) and [ ] = floor.
%t A379416 r = 3^(1/4); s = 3^(1/2); t = 3^(3/4);
%t A379416 Table[n + Floor[n*s/r] + Floor[n*t/r], {n, 1, 120}] (* A379414 *)
%t A379416 Table[n + Floor[n*r/s] + Floor[n*t/s], {n, 1, 120}] (* A379415 *)
%t A379416 Table[n + Floor[n*r/t] + Floor[n*s/t], {n, 1, 120}] (* A379416 *)
%Y A379416 Cf. A184812, A379414, A379415.
%K A379416 nonn
%O A379416 1,2
%A A379416 _Clark Kimberling_, Jan 20 2025