A140244 -id:A140244 - cp's OEIS frontend

A140243 Decimal expansion of 180*arccos(11/16)/Pi.

4, 6, 5, 6, 7, 4, 6, 3, 4, 4, 2, 2, 1, 0, 2, 2, 8, 3, 6, 3, 6, 8, 6, 8, 9, 5, 6, 0, 2, 6, 1, 8, 5, 0, 1, 9, 8, 4, 6, 0, 5, 2, 0, 7, 1, 2, 6, 3, 3, 0, 1, 5, 0, 5, 7, 1, 8, 4, 9, 6, 4, 5, 9, 7, 3, 4, 4, 6, 1, 1, 9, 2, 5, 7, 8, 1, 7, 6, 4, 5, 2, 9, 7, 6, 2, 3, 2, 7, 0, 6, 1, 9, 9, 9, 2, 8, 4, 5, 0, 2, 2, 4, 2, 5, 4

Offset: 2

Rick L. Shepherd, May 14 2008

Angle in degrees of the larger acute angle of the obtuse scalene triangle with sides of lengths 2, 3 and 4, the scalene triangle with least integer side lengths.

A140241 + A140243 + A140245 = 180.

			46.5674634422102283636868956026185019846052071263301505718496459734461192578...

Cf. A140239, A140240, A140241, A140242, A140244, A140245, A140246, A140247, A140248, A140249.

RealDigits[180 ArcCos[11/16]/Pi,10,120][[1]] (* Harvey P. Dale, Jul 07 2022 *)

PARI
```
180*acos(11/16)/Pi
```

180*arccos(11/16)/Pi = 180*A140242/Pi.

A196361 Decimal expansion of the absolute minimum of cos(t) + cos(2t) + cos(3t).

Original entry on oeis.org

1, 3, 1, 5, 5, 6, 5, 1, 5, 4, 7, 2, 0, 4, 4, 9, 4, 1, 2, 3, 5, 2, 2, 7, 0, 7, 5, 0, 9, 4, 3, 5, 1, 1, 9, 6, 2, 2, 2, 1, 1, 7, 8, 3, 0, 6, 7, 2, 5, 0, 7, 9, 6, 7, 6, 3, 9, 1, 7, 9, 0, 4, 1, 5, 3, 4, 8, 4, 2, 5, 2, 5, 0, 4, 6, 7, 1, 1, 0, 5, 7, 0, 1, 6, 0, 1, 0, 1, 8, 5, 9, 4, 5, 6, 3, 6, 3, 1, 5

Offset: 1

Clark Kimberling, Oct 28 2011

The function f(x) = cos(x) + cos(2x) + ... + cos(nx), where n >= 2, attains an absolute minimum at some c between 0 and Pi. Related sequences (with graphs in Mathematica programs):
  n      x     min(f(x))
  =   =======  =========
  2   A140244    -9/8
  3   A198670   A198361
  4   A198672   A198671
  5   A198674   A198673
  6   A198676   A198675

			x = 1.2929430585054266652256311954691354...
min(f(x)) = -1.3155651547204494123522707...

Idris Mercer, On a function related to Chowla's cosine problem, arXiv:1206.5012v1 [math.CA], June 21 2012.
Index entries for algebraic numbers, degree 2.

Cf. A198670.

n = 3; f[t_] := Cos[t]; s[t_] := Sum[f[k*t], {k, 1, n}];
x = N[Minimize[s[t], t], 110]; u = Part[x, 1]
v = 2 Pi - t /. Part[x, 2]
RealDigits[u]   (* A196361 *)
RealDigits[v]   (* A198670 *)
Plot[s[t], {t, -3 Pi, 3 Pi}]
-(17 + 7*Sqrt[7])/27 // RealDigits[#, 10, 99]& // First (* Jean-François Alcover, Feb 19 2013 *)

(17+7*sqrt(7))/27 \\ Charles R Greathouse IV, Feb 07 2025

Equals (17+7*sqrt(7))/27. [Jonathan Vos Post, Jun 21 2012]

cp's OEIS Frontend

A140243 Decimal expansion of 180*arccos(11/16)/Pi.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

Formula