The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A184625 a(n) = floor((n-h)*s +h), where s=2+sqrt(2) and h=-1/4; complement of A184624. 3
 4, 7, 10, 14, 17, 21, 24, 27, 31, 34, 38, 41, 44, 48, 51, 55, 58, 62, 65, 68, 72, 75, 79, 82, 85, 89, 92, 96, 99, 103, 106, 109, 113, 116, 120, 123, 126, 130, 133, 137, 140, 144, 147, 150, 154, 157, 161, 164, 167, 171, 174, 178, 181, 184, 188, 191, 195, 198, 202, 205, 208, 212, 215, 219, 222, 225, 229 (list; graph; refs; listen; history; text; internal format)
 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/4. MATHEMATICA r=2^(1/2); h=-1/4; s=r/(r-1); Table[Floor[n*r+h], {n, 1, 120}]  (* A184624 *) Table[Floor[n*s+h-h*s], {n, 1, 120}]  (* A184625 *) PROG (PARI) for(n=1, 100, print1(floor(n*sqrt(2)/(sqrt(2)-1) + sqrt(2)/(4*sqrt(2) - 4) - 1/4), ", ")) \\ G. C. Greubel, Apr 20 2018 (MAGMA) [Floor(n*Sqrt(2)/(Sqrt(2) - 1) + Sqrt(2)/(4*Sqrt(2) - 4) - 1/4): n in [1..100]]; // G. C. Greubel, Apr 20 2018 CROSSREFS Cf. A184618, A184624. Sequence in context: A123384 A138813 A310689 * A184118 A310690 A310691 Adjacent sequences:  A184622 A184623 A184624 * A184626 A184627 A184628 KEYWORD nonn AUTHOR Clark Kimberling, Jan 18 2011 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified January 26 20:11 EST 2020. Contains 331288 sequences. (Running on oeis4.)