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
Keywords
Programs
-
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 *)
Extensions
Definition in name corrected by Clark Kimberling, Jan 18 2025