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

Author

Clark Kimberling, Jan 18 2011

Keywords

• nonn

Links

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

Crossrefs

Cf. A184618.

Programs

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

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 *)

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

Formula

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