|
Search: id:A115792
|
|
| |
|
| 0, 0, 1, 1, 2, 3, 6, 11, 20, 37, 69, 126, 232, 426, 784, 1442, 2652, 4878, 8973, 16503, 30354, 55829, 102686, 188869, 347384
(list; graph; listen)
|
|
|
OFFSET
|
0,5
|
|
|
COMMENT
|
D1 elliptical invariant transform leaves the ratio unchanged.
|
|
FORMULA
|
g[x]=(x-1)^2/(-4*x) a(n) =-Floor[g[A000073[n]]]
|
|
MATHEMATICA
|
g[x_] = (x - 1)^2/(-4*x) M = {{0, 1, 0}, {0, 0, 1}, {1, 1, 1}} w[0] = {0, 1, 1}; w[n_] := w[n] = M.w[n - 1] a0 = Table[ -Floor[g[w[n][[1]]]], {n, 1, 25}] b0 = Table[N[a0[[n + 1]]/a0[[n]]], {n, 2, 24}]
|
|
CROSSREFS
|
Cf. A000073.
Sequence in context: A054182 A001590 A078042 this_sequence A054177 A141435 A096080
Adjacent sequences: A115789 A115790 A115791 this_sequence A115793 A115794 A115795
|
|
KEYWORD
|
nonn,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 13 2006
|
|
|
Search completed in 0.002 seconds
|
