|
| |
|
|
A080764
|
|
First differences of A049472, floor(n/sqrt(2)).
|
|
5
|
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
0,1
|
|
|
COMMENTS
|
Fixed point of the morphism 0->{1}, 1->{1,1,0}. - Benoit Cloitre, May 31 2004
As binary constant 0.1101101110110... = 0.85826765646... (A119812), see Fxtbook link. [Joerg Arndt, May 15 2011]
|
|
|
LINKS
|
Table of n, a(n) for n=0..104.
Joerg Arndt, Fxtbook, section 38.12, pp. 757-758
|
|
|
MATHEMATICA
|
Nest[ Flatten[ # /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (from Robert G. Wilson v, Apr 16 2005)
NestList[ Flatten[ # /. {0 -> {1}, 1 -> {1, 0, 1}}] &, {1}, 5] // Flatten (* or *)
t = Table[Floor[n/Sqrt[2]], {n, 111}]; Drop[t, 1] - Drop[t, -1] (from Robert G. Wilson v, Nov 03 2005)
|
|
|
CROSSREFS
|
Sequence in context: A015923 A014768 A015527 * A014114 A014219 A065828
Adjacent sequences: A080761 A080762 A080763 * A080765 A080766 A080767
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Matthew Vandermast, Mar 25 2003
|
|
|
STATUS
|
approved
|
| |
|
|
