OFFSET
1,1
COMMENTS
Complement of A184580.
LINKS
Clark Kimberling, Table of n, a(n) for n = 1..10000
MATHEMATICA
r=2^(1/2); c=1/4; s=r/(r-1);
Table[Floor[n*r-c*r], {n, 1, 120}] (* A184580 *)
Table[Floor[n*s+c*s], {n, 1, 120}] (* this sequence *)
PROG
(Magma) [Floor((n+1/4)*(2+Sqrt(2))): n in [1..60]]; // Vincenzo Librandi, Jun 10 2015
(PARI) for(n=1, 30, print1(floor((n+1/4)*(2+sqrt(2))), ", ")) \\ G. C. Greubel, Jan 27 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 17 2011
STATUS
approved