login

Revision History for A080052

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

Showing entries 1-10 | older changes
Value of n such that for any value of n, Pi^n is closer to its nearest integer than any value of Pi^k for 1 <= k < n.
(history; published version)
#18 by Jon E. Schoenfield at Sun Nov 18 00:51:29 EST 2018
STATUS

editing

approved

#17 by Jon E. Schoenfield at Sun Nov 18 00:51:26 EST 2018
COMMENTS

The sequence of rounded reciprocals of the distances, b(n) = round(1/(0.5-frac(Pi^a(n)-.5))) = round(1/abs(round(Pi^a(n))-Pi^a(n))), starts { 7, 8, 159, 190, 270, 2665, 10811, 26577, 62099, 70718, ... }. - M. F. Hasler, Apr 06 2008

EXAMPLE

First term is 1 because this is just Pi = 3.14159....

First term is 1 because this is just Pi=3.14159... Second term is 2 because Pi^2 = 9.869604... which is 0.13039... away from its nearest integer. Pi^3=31.00627, hence third term is 3. Pi^58 is 0.00527.. away from its nearest integer.

Pi^3 = 31.00627..., hence third term is 3.

Pi^58 is 0.00527... away from its nearest integer.

MATHEMATICA

$MaxExtraPrecision = 10^9; a = 1; Do[d = Abs[ Round[Pi^n] - N[Pi^n, Ceiling[ Log[10, Pi^n] + 24]]]; If[d < a, Print[n]; a = d], {n, 1, 10^5}] (* Ryan Propper , Nov 13 2005 *)

STATUS

approved

editing

#16 by Jon E. Schoenfield at Fri Mar 20 23:29:24 EDT 2015
STATUS

editing

approved

#15 by Jon E. Schoenfield at Fri Mar 20 23:29:19 EDT 2015
NAME

Value of n such that for any value of n, piPi^n is closer to its nearest integer than any value of piPi^k for 1 <= k < n.

COMMENTS

_Robert G. Wilson v _ used Mathematica with a changing number of digits to accommodate 24 digits to the right of the decimal point.

The sequence of rounded reciprocals of the distances, b(n) = round(1/(.5-frac(Pi^a(n)-.5))) = round(1/abs(round(Pi^a(n))-Pi^a(n))), starts { 7, 8, 159, 190, 270, 2665, 10811, 26577, 62099, 70718, ... } . - M. F. Hasler, Apr 06 2008

EXAMPLE

First term is 1 because this is just piPi=3.14159... Second term is 2 because piPi^2=9.869604... which is 0.13039... away from its nearest integer. piPi^3=31.00627, hence third term is 3. piPi^58 is 0.00527.. away from its nearest integer.

MATHEMATICA

$MaxExtraPrecision = 10^9; a = 1; Do[d = Abs[ Round[Pi^n] - N[Pi^n, Ceiling[ Log[10, Pi^n] + 24]]]; If[d < a, Print[n]; a = d], {n, 1, 10^5}] (* _Ryan Propper_ *)

EXTENSIONS

a(11)-a(13) from _Jeremy Elson, _, Nov 13 2011

STATUS

approved

editing

#14 by Charles R Greathouse IV at Wed Oct 02 15:12:34 EDT 2013
EXTENSIONS

One more term from _Ryan Propper (rpropper(AT)stanford.edu), _, Nov 13 2005

Discussion
Wed Oct 02
15:12
OEIS Server: https://oeis.org/edit/global/1961
#13 by Charles R Greathouse IV at Tue Sep 24 09:16:51 EDT 2013
STATUS

editing

approved

#12 by Charles R Greathouse IV at Tue Sep 24 09:16:43 EDT 2013
PROG

(PARI) f=0; for( i=1, 99999, abs(frac(Pi^i)-.5)>f | next; f=abs(frac(Pi^i)-.5); print1(i", ")) - _\\ _M. F. Hasler_, Apr 06 2008

EXTENSIONS

More terms from _Carlos Alves (cjsalves(AT)gmail.com) _ and Robert G. Wilson v, Jan 23 2003

STATUS

approved

editing

#11 by Charles R Greathouse IV at Sat Jul 14 11:32:15 EDT 2012
COMMENTS

The sequence of rounded reciprocals of the distances, b(n) = round(1/(.5-frac(Pi^a(n)-.5))) = round(1/abs(round(Pi^a(n))-Pi^a(n))), starts { 7, 8, 159, 190, 270, 2665, 10811, 26577, 62099, 70718, ... } - _M. F. Hasler (www.univ-ag.fr/~mhasler), _, Apr 06 2008

PROG

(PARI) f=0; for( i=1, 99999, abs(frac(Pi^i)-.5)>f | next; f=abs(frac(Pi^i)-.5); print1(i", ")) - _M. F. Hasler (www.univ-ag.fr/~mhasler), _, Apr 06 2008

Discussion
Sat Jul 14
11:32
OEIS Server: https://oeis.org/edit/global/1815
#10 by Russ Cox at Fri Mar 30 17:30:53 EDT 2012
EXTENSIONS

More terms from Carlos Alves (cjsalves(AT)gmail.com) and _Robert G. Wilson v (rgwv(AT)rgwv.com), _, Jan 23 2003

Discussion
Fri Mar 30
17:30
OEIS Server: https://oeis.org/edit/global/156
#9 by Nathaniel Johnston at Mon Nov 14 21:29:47 EST 2011
STATUS

editing

approved