|
Search: id:A023969
|
|
|
| A023969 |
|
Round(sqrt(n)) - floor(sqrt(n)). |
|
+0
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; listen)
|
|
|
OFFSET
|
0,1
|
|
|
COMMENT
|
First bit in fractional part of binary expansion of square root of n.
|
|
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.
|
|
MATHEMATICA
|
Array[ Function[ n, RealDigits[ N[ Power[ n, 1/2 ], 10 ], 2 ]// (#[ [ 1, #[ [ 2 ] ]+1 ] ])& ], 110 ]
|
|
CROSSREFS
|
Cf. A080343, A080344.
Sequence in context: A105563 A011765 A129251 this_sequence A060039 A107078 A020987
Adjacent sequences: A023966 A023967 A023968 this_sequence A023970 A023971 A023972
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Olivier Gerard (ogerard(AT)ext.jussieu.fr)
|
|
EXTENSIONS
|
Revised by njas, Mar 20 2003.
|
|
|
Search completed in 0.002 seconds
|
