|
| |
|
|
A059648
|
|
a(n) = [[(k^2)*n]-(k*[k*n])], where k = sqrt(2) and [] is the floor function.
|
|
4
| |
|
|
0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 1, 0, 0, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| The values of (floor((k^2)*j)-(k*(floor(k*j)))) for j=0..20, with k=sqrt(2), are 0, 0.585786, 1.171572, 0.343144, 0.928930, 0.100502, 0.68629, 1.27207, 0.44365, 1.02943, 0.20100, 0.78679, 1.37258, 0.54415, 1.12993, 0.30151, 0.88729, 0.05886, 0.64465, 1.23044, 0.40201
|
|
|
MAPLE
| Digits := 89; floor_diffs_floored(sqrt(2), 120); floor_diffs_floored := proc(k, upto_n) local j; [seq(floor(floor((k^2)*j)-(k*(floor(k*j)))), j=0..upto_n)]; end;
|
|
|
CROSSREFS
| Positions of ones: A059649.
Sequence in context: A103589 A123740 A129272 * A079261 A073059 A156729
Adjacent sequences: A059645 A059646 A059647 * A059649 A059650 A059651
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Antti Karttunen Feb 03 2001
|
| |
|
|
