|
| |
|
|
A081147
|
|
Differences of Beatty sequence for square root of 5.
|
|
1
| |
|
|
2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2, 3, 2, 2, 2
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Let S(0) = 2; obtain S(k) from S(k-1) by applying 2 ->2223, 3 -> 22223; sequence is S(0), S(1), S(2), ...
|
|
|
FORMULA
| a(n)=floor((n+1)*sqrt(5))-floor(n*sqrt(5))
|
|
|
MATHEMATICA
| Flatten[ Table[ Nest[ Flatten[ # /. {2 -> {2, 2, 2, 3}, 3 -> {2, 2, 2, 2, 3}}] &, {2}, n], {n, 0, 4}]] (from Robert G. Wilson v (rgwv(AT)rgwv.com), May 07 2005)
|
|
|
PROG
| (PARI) a(n)=floor((n+1)*sqrt(5))-floor(n*sqrt(5))
|
|
|
CROSSREFS
| Cf. A022839.
Sequence in context: A067131 A094915 A187186 * A163671 A083399 A105561
Adjacent sequences: A081144 A081145 A081146 * A081148 A081149 A081150
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Benoit Cloitre (benoit7848c(AT)orange.fr), Apr 16 2003
|
| |
|
|
