|
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Fixed point of the morphism 0->{1}, 1->{1,1,0}. - Benoit Cloitre (benoit7848c(AT)orange.fr), May 31 2004
As binary constant 0.1101101110110... = 0.85826765646... (A119812), see Fxtbook link. [Joerg Arndt, May 15 2011]
|
|
|
LINKS
| 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 (rgwv(AT)rgwv.com), 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 (rgwv(at)rgwv.com), 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 (ghodges14(AT)comcast.net), Mar 25 2003
|
| |
|
|
