|
|
A023969
|
|
a(n) = round(sqrt(n)) - floor(sqrt(n)).
|
|
3
|
|
|
0, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
COMMENTS
|
First bit in fractional part of binary expansion of square root of n.
|
|
LINKS
|
|
|
FORMULA
|
Runs are 0^1, 0^2 1, 0^3 1^2, 0^4 1^3, ...
a(n) = 1 iff n >= 3 and n is in the interval [k*(k+1) + 1, ..., k*(k+1) + k] for some k >= 1.
a(n) = floor(2*sqrt(n)) - 2*floor(sqrt(n)). - Mircea Merca, Jan 31 2012
|
|
MAPLE
|
seq(floor(2*sqrt(n))-2*floor(sqrt(n)), n=0..100); # Ridouane Oudra, Jun 20 2019
|
|
MATHEMATICA
|
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/2 ], 10 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
Table[Round[Sqrt[n]]-Floor[Sqrt[n]], {n, 0, 120}] (* Harvey P. Dale, Jan 02 2018 *)
|
|
PROG
|
(Python)
from gmpy2 import isqrt_rem
i, j = isqrt_rem(n)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|