A184619 a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/3; complement of A184618.

2, 6, 9, 12, 16, 19, 23, 26, 29, 33, 36, 40, 43, 46, 50, 53, 57, 60, 64, 67, 70, 74, 77, 81, 84, 87, 91, 94, 98, 101, 105, 108, 111, 115, 118, 122, 125, 128, 132, 135, 139, 142, 146, 149, 152, 156, 159, 163, 166, 169, 173, 176, 180, 183, 186, 190, 193, 197, 200, 204, 207, 210, 214, 217, 221, 224, 227

Offset

1,1

Links

G. C. Greubel, Table of n, a(n) for n = 1..10000

Formula

a(n) = floor((n-h)*s+h), where s=2+sqrt(2) and h=1/3.

Mathematica

r=2^(1/2); h=1/3; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}]  (* A184618 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184619 *)

Prog

(PARI) for(n=1, 100, print1(floor(n*sqrt(2)/(sqrt(2)-1) - sqrt(2)/(3*sqrt(2) - 3) + 1/3), ", ")) \\ G. C. Greubel, Apr 20 2018
(Magma) [Floor(n*Sqrt(2)/(Sqrt(2) - 1) - Sqrt(2)/(3*Sqrt(2) - 3) + 1/3): n in [1..100]]; // G. C. Greubel, Apr 20 2018

Crossrefs

Cf. A184618.

Sequence in context: A187912 A186500 A190777 * A184119 A191873 A293789

Adjacent sequences: A184616 A184617 A184618 * A184620 A184621 A184622

Keyword

nonn

Author

Clark Kimberling, Jan 18 2011

Status

approved