A219013 Denominators in a product expansion for sqrt(3).
11, 523451, 39571031999225940638473470251
Offset: 0
Links
- Amiram Eldar, Table of n, a(n) for n = 0..4
Programs
-
Mathematica
RecurrenceTable[{a[n+1] == 5/2*(a[n]^4 - a[n]^2)*Sqrt[4*a[n] + 5] + a[n]^5 + 15/2*a[n]^4 - 25/2*a[n]^2 + 5, a[0] == 11}, a, {n, 0, 3}] (* Amiram Eldar, Jul 20 2025 *)
Comments