|
%I #8 Jul 03 2019 17:48:28
%S 1,3,5,12,27,62,143,331,766,1774,4109,9518,22048,51074,118313,274073,
%T 634893,1470737,3406980,7892311,18282636,42351953,98108825,227270312,
%U 526474502,1219584727,2825183178
%N a(n) = [ tau*a(n-1) ] + [ tau*a(n-2) ].
%H Harvey P. Dale, <a href="/A005913/b005913.txt">Table of n, a(n) for n = 0..1000</a>
%t nxt[{a_,b_}]:={b,Floor[b*GoldenRatio]+Floor[a*GoldenRatio]}; NestList[nxt,{1,3},30][[All,1]] (* _Harvey P. Dale_, Jul 03 2019 *)
%K nonn
%O 0,2
%A _N. J. A. Sloane_.
|
