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