%I A107300
%S A107300 3,2,8,14,40,92,236,576,1440,3560,8848,21936,54448,135072,335168,831584,
%T A107300 2063360,5119552,12702656,31517696,78201600,194033280,481434368,
%U A107300 1194532096,2963866368,7353928192
%N A107300 a(n) = 2*a(n-1)+2*a(n-2)-2*a(n-3).
%F A107300 G.f.: (3-4*x-2*x^2)/(1-2*x-2*x^2+2*x^3). [Sep 28 2009]
%F A107300 a(n) = 3*A077937(n)-4*A077937(n-1)-2*A077937(n-2). [Sep 28 2009]
%t A107300 b1 = x /. NSolve[x^3 - 2*x^2 - 2*x + 2 == 0, x][[1]] b2 = x /. NSolve[x^3 
               - 2*x^2 - 2*x + 2 == 0, x][[2]] b3 = x /. NSolve[x^3 - 2*x^2 - 2*x 
               + 2 == 0, x][[3]] digits = 25 a = Table[N[2*(b3^n + b1^n + b2^n)/ 
               (b3 + b2 + b1)], {n, 0, digits}]
%Y A107300 Sequence in context: A094188 A088551 A165660 this_sequence A047946 A066045 
               A110866
%Y A107300 Adjacent sequences: A107297 A107298 A107299 this_sequence A107301 A107302 
               A107303
%K A107300 nonn,easy
%O A107300 0,1
%A A107300 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), May 20 2005
%E A107300 Definition replaced by recurrence by the Associate Editors of the OEIS, 
               Sep 28 2009