This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A165905 #13 Jun 02 2025 02:05:33
%S A165905 1,2,4,16,48,224,1472,7552,80384,782848,8406016,170625024,2540736512,
%T A165905 64470204416,2076557099008,55281408770048,3099925187854336,
%U A165905 147249506912960512,8547656292050141184,871531919951033532416
%N A165905 Somos-4 recurrence with a(0)=1, a(1)=2, a(2)=4, a(3)=16.
%H A165905 G. C. Greubel, <a href="/A165905/b165905.txt">Table of n, a(n) for n = 0..147</a>
%F A165905 a(n) = 2^n*A006720(n+1) for all n in Z.
%F A165905 a(n) = (a(n-1)*a(n-3) +a(n-2)^2)/a(n-4). - _G. C. Greubel_, Sep 18 2018
%e A165905 G.f. = 1 + 2*x + 4*x^2 + 16*x^3 + 224*x^4 + 1472*x^5 + 7552*x^6 + ... - _Michael Somos_, Sep 19 2018
%t A165905 RecurrenceTable[{a[n] == (a[n-1]*a[n-3] +a[n-2]^2)/a[n-4], a[0] == 1, a[1] == 2, a[2] == 4, a[3] == 16}, a, {n, 0, 30}] (* _G. C. Greubel_, Sep 18 2018 *)
%t A165905 nxt[{a_,b_,c_,d_}]:={b,c,d,(b*d+c^2)/a}; NestList[nxt,{1,2,4,16},20][[All,1]] (* _Harvey P. Dale_, Jul 28 2021 *)
%o A165905 (PARI) a(n)=if(n<4,[1,2,4,16][n+1],(a(n-1)*a(n-3)+a(n-2)^2)/a(n-4))
%o A165905 (Magma) I:=[1,2,4,16]; [n le 4 select I[n] else (Self(n-1)*Self(n-3) + Self(n-2)^2)/Self(n-4): n in [1..30]]; // _G. C. Greubel_, Sep 18 2018
%Y A165905 Cf. A006720, A157005, A165904.
%K A165905 nonn
%O A165905 0,2
%A A165905 _Jaume Oliver Lafont_, Sep 29 2009
%E A165905 "frac" keyword removed by _Jaume Oliver Lafont_, Oct 13 2009