|
| |
|
|
A115792
|
|
A dihedial D1 elliptical transform on A000073.
|
|
0
| |
|
|
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; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| 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 * A054177 A186546 A141435
Adjacent sequences: A115789 A115790 A115791 * A115793 A115794 A115795
|
|
|
KEYWORD
| nonn,uned
|
|
|
AUTHOR
| Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 13 2006
|
| |
|
|
