login
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
OFFSET
1,1
LINKS
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
Sequence in context: A123384 A138813 A310689 * A184118 A310690 A310691
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 18 2011
STATUS
approved