|
Search: id:A115730
|
|
|
| A115730 |
|
Dihedral D2 elliptical invariant transform on A000045: a[n+1]/a[n]= 1+Phi=1+(1+Sqrt[5])/2. |
|
+0
1
|
|
| 0, 0, 1, 2, 6, 16, 42, 110, 289, 756, 1980, 5184, 13572, 35532, 93025, 243542, 637602, 1669264, 4370190, 11441306, 29953729, 78419880, 205305912, 537497856, 1407187656
(list; graph; listen)
|
|
|
OFFSET
|
0,4
|
|
|
COMMENT
|
A D2 elliptical invariant transform gives a ratio of 1+Phi.
|
|
FORMULA
|
b[n]=A000045[n] g[x]=(x^2-1)^2/(-4*x^2): D2 dihedral elliptical invariant function a(n) = -Floor[g[b[n]]
|
|
MATHEMATICA
|
F[0] = 0; F[1] = 1; F[n_] := F[n] = F[n - 1] + F[n - 2] g[x_] = (x^2 - 1)^2/(-4*x^2) a = Table[ -Floor[g[F[n]]], {n, 1, 25}] Table[N[a[[n + 1]]/a[[n]]], {n, 1, Length[a] - 1}]
|
|
CROSSREFS
|
Cf. A000045, A079962.
Sequence in context: A156664 A025169 A111282 this_sequence A003142 A027994 A027068
Adjacent sequences: A115727 A115728 A115729 this_sequence A115731 A115732 A115733
|
|
KEYWORD
|
nonn,probation
|
|
AUTHOR
|
Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 13 2006
|
|
|
Search completed in 0.002 seconds
|
