A373161 a(n) = numerator of Sum_{k>=0} cos(k*Pi/3)/n^k.

1, 15, 14, 15, 33, 91, 20, 153, 95, 77, 138, 325, 63, 435, 248, 187, 315, 703, 130, 861, 473, 345, 564, 1225, 221, 1431, 770, 551, 885, 1891, 336, 2145, 1139, 805, 1278, 2701, 475, 3003, 1580, 1107, 1743, 3655, 638, 4005, 2093, 1457, 2280, 4753, 825, 5151

Offset

2,2

Comments

The first five fractions are 1/1, 15/14, 14/13, 15/14, 33/31; beginning at 14/13 the sequence of fractions is strictly decreasing with limit 1.

Links

Table of n, a(n) for n=2..51.

Mathematica

t = Table[Sum[Cos[k Pi/3]/n^k, {k, 0, Infinity}], {n, 2, 60}]
Denominator[t]
Numerator[t]

Crossrefs

Cf. A373160, A373162, A373163.

Sequence in context: A272685 A087979 A291490 * A358067 A048294 A248391

Adjacent sequences: A373158 A373159 A373160 * A373162 A373163 A373164

Keyword

nonn,frac

Author

Clark Kimberling, Jul 22 2024

Status

approved