%I A115730
%S A115730 0,0,1,2,6,16,42,110,289,756,1980,5184,13572,35532,93025,243542,637602,
%T A115730 1669264,4370190,11441306,29953729,78419880,205305912,537497856,
%U A115730 1407187656
%N A115730 Dihedral D2 elliptical invariant transform on A000045: a[n+1]/a[n]= 1+Phi=1+(1+Sqrt[5])/
               2.
%C A115730 A D2 elliptical invariant transform gives a ratio of 1+Phi.
%F A115730 b[n]=A000045[n] g[x]=(x^2-1)^2/(-4*x^2): D2 dihedral elliptical invariant 
               function a(n) = -Floor[g[b[n]]
%t A115730 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}]
%Y A115730 Cf. A000045, A079962.
%Y A115730 Sequence in context: A156664 A025169 A111282 this_sequence A003142 A027994 
               A027068
%Y A115730 Adjacent sequences: A115727 A115728 A115729 this_sequence A115731 A115732 
               A115733
%K A115730 nonn,probation
%O A115730 0,4
%A A115730 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Mar 13 2006