%I A097719
%S A097719 0,1,2,1,2,3,6,7,9,13,20,27,37,51,71,98,136,187,258,357,494,681,940,
%T A097719 1298,1792,2474,3415,4714,6506,8981,12396,17110,23617,32599,44996,
%U A097719 62107,85725,118324,163320,225427,311153,429477,592798,818226
%N A097719 a(n)=(a^n-b^n)/(a-b), where a=1.3802775690976141157... and b=-0.8191725133961644397... 
               are the real roots of x^4-x^3-1=0.
%t A097719 NSolve[x^4 - x^3 - 1 == 0, x] b01 = 1.380277569097614 b11 = -0.8191725133961645 
               b21 = 0.2194474721492751 - 0.9144736629677264*I b31 = 0.2194474721492751 
               + 0.9144736629677264*I f[n_] := N[(b01^n - b11^n - b21^n - b31^n)/
               (b01 - b11 - b21 - b31)]; digits = 200 c = Table[Floor[Re[f[n]]], 
               {n, 1, digits}]
%Y A097719 Cf. A001644.
%Y A097719 Sequence in context: A106576 A128474 A108618 this_sequence A056493 A001371 
               A001037
%Y A097719 Adjacent sequences: A097716 A097717 A097718 this_sequence A097720 A097721 
               A097722
%K A097719 nonn
%O A097719 0,3
%A A097719 Roger L. Bagula (rlbagulatftn(AT)yahoo.com), Sep 21 2004; corrected Oct 
               06 2004