login
This site is supported by donations to The OEIS Foundation.

 

Logo

The October issue of the Notices of the Amer. Math. Soc. has an article about the OEIS.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A197733 Decimal expansion of 2*Pi/(1+Pi). 3
1, 5, 1, 7, 0, 9, 3, 9, 8, 5, 9, 8, 9, 5, 5, 2, 2, 9, 0, 6, 8, 8, 8, 6, 1, 3, 7, 8, 0, 8, 9, 7, 8, 5, 7, 2, 8, 2, 7, 6, 8, 5, 2, 7, 3, 1, 2, 8, 1, 0, 6, 1, 9, 9, 3, 3, 3, 7, 9, 7, 6, 4, 2, 7, 5, 6, 5, 0, 9, 6, 2, 7, 4, 2, 0, 1, 9, 1, 4, 7, 5, 2, 6, 4, 1, 2, 6, 6, 3, 4, 8, 0, 3, 0, 7, 1, 1, 5, 4 (list; constant; graph; refs; listen; history; text; internal format)
OFFSET

1,2

COMMENTS

Least x>0 such that sin(bx)=cos(cx) (and also sin(cx)=cos(bx)), where b=1/4 and c=Pi/4; see the Mathematica program for a graph and A197682 for a discussion and guide to related sequences.

Equals the harmonic mean of 1 and Pi. - Stanislav Sykora, Apr 11 2016

LINKS

Table of n, a(n) for n=1..99.

EXAMPLE

1.51709398598955229068886137808978572827685273...

MATHEMATICA

b = 1/4; c = Pi/4;

t = x /. FindRoot[Sin[b*x] == Cos[c*x], {x, 1.517, 1.518}]

N[Pi/(2*b + 2*c), 110]

RealDigits[%]  (* A197733 *)

Simplify[Pi/(2*b + 2*c)]

Plot[{Sin[b*x], Cos[c*x]}, {x, 0, Pi/2}]

PROG

(PARI) 2*Pi/(1+Pi) \\ Michel Marcus, Apr 11 2016

(MATLAB) 2*pi/(1+pi) \\ Altug Alkan, Apr 11 2016

CROSSREFS

Cf. A074950 (harmonic mean of Pi and e), A197682.

Sequence in context: A261721 A275490 A052345 * A241018 A300711 A111008

Adjacent sequences:  A197730 A197731 A197732 * A197734 A197735 A197736

KEYWORD

nonn,cons

AUTHOR

Clark Kimberling, Oct 17 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified September 25 20:53 EDT 2018. Contains 315425 sequences. (Running on oeis4.)