login
A184620
a(n) = floor(nr+h), where r=sqrt(2), h=1/4; complement of A184621.
2
1, 3, 4, 5, 7, 8, 10, 11, 12, 14, 15, 17, 18, 20, 21, 22, 24, 25, 27, 28, 29, 31, 32, 34, 35, 37, 38, 39, 41, 42, 44, 45, 46, 48, 49, 51, 52, 53, 55, 56, 58, 59, 61, 62, 63, 65, 66, 68, 69, 70, 72, 73, 75, 76, 78, 79, 80, 82, 83, 85, 86, 87, 89, 90, 92, 93, 95, 96, 97, 99, 100, 102, 103, 104, 106, 107, 109, 110, 111, 113, 114, 116, 117, 119, 120, 121, 123, 124, 126, 127, 128, 130, 131, 133, 134, 136, 137, 138, 140, 141, 143, 144, 145, 147, 148, 150, 151, 152, 154, 155, 157, 158, 160, 161, 162, 164, 165, 167, 168, 169
OFFSET
1,2
LINKS
FORMULA
a(n) = floor(n*r+h), where r=sqrt(2), h=1/4.
MATHEMATICA
r=2^(1/2); h=1/4; s=r/(r-1);
Table[Floor[n*r+h], {n, 1, 120}] (* A184620 *)
Table[Floor[n*s+h-h*s], {n, 1, 120}] (* A184621 *)
PROG
(PARI) vector(120, n, floor(n*sqrt(2) + 1/4)) \\ G. C. Greubel, Aug 18 2018
(Magma) [Floor(n*Sqrt(2) + 1/4): n in [1..120]]; // G. C. Greubel, Aug 18 2018
CROSSREFS
Sequence in context: A184744 A063732 A047367 * A039043 A116591 A136119
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 18 2011
STATUS
approved