A184909 a(n) = n + floor(n*s/r) + floor(n*t/r), where r=2^(1/5), s=r^2, t=r^3.

3, 6, 9, 13, 16, 19, 24, 27, 30, 34, 37, 40, 44, 48, 51, 55, 58, 61, 65, 68, 72, 76, 79, 82, 85, 89, 93, 96, 100, 103, 106, 110, 113, 117, 121, 124, 127, 131, 134, 137, 142, 145, 148, 152, 155, 158, 162, 166, 169, 172, 176, 179, 182, 187, 190, 193, 197, 200, 203, 207

Offset

1,1

Links

Table of n, a(n) for n=1..60.

Mathematica

r = 2^(1/5); s = r^2; t = r^3;
a[n_] := n + Floor[n*s/r] + Floor[n*t/r];
b[n_] := n + Floor[n*r/s] + Floor[n*t/s];
c[n_] := n + Floor[n*r/t] + Floor[n*s/t];
Table[a[n], {n, 1, 120}]  (* A184909 *)
Table[b[n], {n, 1, 120}]  (* A184910 *)
Table[c[n], {n, 1, 120}]  (* A184911 *)
(* Clark Kimberling, Jan 18 2025 *)

Crossrefs

Cf. A005531, A005533, A011093.

Cf. A184910, A184911, A378142, A378185, A379510.

Sequence in context: A171982 A066343 A172262 * A289037 A060605 A325228

Adjacent sequences: A184906 A184907 A184908 * A184910 A184911 A184912

Keyword

nonn

Author

Clark Kimberling, Jan 25 2011

Extensions

Definition in name corrected by Clark Kimberling, Jan 18 2025

Status

approved