OFFSET
1,1
COMMENTS
General formula for continued cotangent recurrences type:
a(n+1)=a(n)3+3*a(n) and a(1)=k is following:
a(n)=Floor[((k+Sqrt[k^2+4])/2)^(3^(n-1))]
k=1 see A006267
k=2 see A006266
k=3 see A006268
k=4 see A006267(n+1)
k=5 see A006269
k=6 see A145180
k=7 see A145181
k=8 see A145182
k=9 see A145183
k=10 see A145184
k=11 see A145185
k=12 see A145186
k=13 see A145187
k=14 see A145188
k=15 see A145189
FORMULA
a(n+1)=a(n)3+3*a(n) and a(1)=14
a(n)=Floor[((14+Sqrt[14^2+4])/2)^(3^(n-1))]
MATHEMATICA
a = {}; k = 15; Do[AppendTo[a, k]; k = k^3 + 3 k, {n, 1, 6}]; a
or
Table[Floor[((15 + Sqrt[229])/2)^(3^(n - 1))], {n, 1, 5}] (*Artur Jasinski*)
NestList[#^3+3#&, 15, 5] (* Harvey P. Dale, Aug 20 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Oct 03 2008
STATUS
approved