A184625 a(n) = floor((n-h)*s +h), where s=2+sqrt(2) and h=-1/4; complement of A184624.

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

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