The On-Line Encyclopedia of Integer Sequences (OEIS)

The OEIS is supported by the many generous donors to the OEIS Foundation.

Revision History for A198730

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A198730

Decimal expansion of the least x>0 that gives the absolute minimum of sin(x)+sin(2x)+sin(3x)+sin(4x).
(history; published version)

#5 by Russ Cox at Fri Mar 30 18:57:55 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Oct 29 2011

Discussion

Fri Mar 30

18:57

OEIS Server: https://oeis.org/edit/global/285

#4 by T. D. Noe at Sat Oct 29 18:10:41 EDT 2011

STATUS

proposed

approved

#3 by Clark Kimberling at Sat Oct 29 18:04:07 EDT 2011

STATUS

editing

proposed

#2 by Clark Kimberling at Sat Oct 29 10:06:20 EDT 2011

NAME

allocated for Clark KimberlingDecimal expansion of the least x>0 that gives the absolute minimum of sin(x)+sin(2x)+sin(3x)+sin(4x).

DATA

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

OFFSET

1,1

COMMENTS

See A198677 for a guide to related sequences.

EXAMPLE

x=5.764569445617181108633794876455734774725510...

min=-3.232384871111452330884269520493428181450...

MATHEMATICA

n = 4; f[t_] = Sin[t]; s[t_] := Sum[f[k*t], {k, 1, n}];

x = N[Minimize[s[t], t], 110]; u = Part[x, 1]

v = t /. Part[x, 2]

RealDigits[u] (* A198729 *)

RealDigits[v] (* A198730 *)

Plot[s[t], {t, -3 Pi, 3 Pi}]

CROSSREFS

Cf. A198677.

KEYWORD

allocated

nonn,cons

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu), Oct 29 2011

STATUS

approved

editing

#1 by Clark Kimberling at Sat Oct 29 09:38:51 EDT 2011

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved