|
| |
|
|
A080757
|
|
First differences of Beatty sequence A022838(n) = floor(n sqrt(3)).
|
|
1
| |
|
|
1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 2, 1, 2, 2, 1, 2, 2, 2, 1, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,2
|
|
|
COMMENTS
| Let S(0) = 1; obtain S(k) from S(k-1) by applying 1 -> 221, 2 -> 2221; sequence is S(0), S(1), S(2), ... - Matthew Vandermast (ghodges14(AT)comcast.net), Mar 25 2003
|
|
|
FORMULA
| a(n) = A007538(n+1) - 1. [Reinhard Zumkeller, Feb 13 2012]
|
|
|
MATHEMATICA
| Flatten[ NestList[ Flatten[ # /. {1 -> {2, 2, 1}, 2 -> {2, 2, 2, 1}}] &, {1}, 4]] (from Robert G. Wilson v (rgwv(AT)rgwv.com), Jun 20 2005)
|
|
|
PROG
| (Haskell)
a080757 = (subtract 1) . a007538 . (+ 1)
-- Reinhard Zumkeller, Feb 14 2012
|
|
|
CROSSREFS
| Equals A007538(n+1) - 1. Cf. A001030.
Sequence in context: A085030 A078377 A105697 * A037196 A169818 A116543
Adjacent sequences: A080754 A080755 A080756 * A080758 A080759 A080760
|
|
|
KEYWORD
| nonn,changed
|
|
|
AUTHOR
| N. J. A. Sloane (njas(AT)research.att.com), Mar 25 2003
|
| |
|
|
