Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A188295
[nr]-[nr-r], where r=1/sqrt(2), [ ]=floor.
2
0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 1, 0
OFFSET
1
COMMENTS
See A188014.
These are the first differences of A049472, so a(n) = A080764(n-2). - R. J. Mathar, Apr 19 2011
FORMULA
a(n)=[nr]-[r(n-1)], where r=1/sqrt(2), [nr] = A049472(n).
MATHEMATICA
r=2^(-1/2)); k=1;
t=Table[Floor[n*r]-Floor[(n-k)*r]-Floor[k*r], {n, 1, 220}] (*A188295*)
Flatten[Position[t, 0]] (*A083051*)
Flatten[Position[t, 1]] (*A087057*)
With[{c=1/Sqrt[2]}, Table[Floor[c n]-Floor[c n-c], {n, 130}]] (* Harvey P. Dale, Jun 15 2021 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Clark Kimberling, Mar 26 2011
STATUS
approved