The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A136517 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A136517

a(0) = 3; for n > 0, break up decimal expansion of Pi into chunks of increasing lengths; leading zeros are not printed.
(history; published version)

#23 by N. J. A. Sloane at Fri Feb 03 16:33:27 EST 2023

STATUS

proposed

approved

#22 by Stefano Spezia at Fri Feb 03 12:21:34 EST 2023

STATUS

editing

proposed

#21 by Stefano Spezia at Fri Feb 03 12:20:52 EST 2023

REFERENCES

Sylvia Nasar, A Beautiful Mind (1998), p. 210.

STATUS

approved

editing

#20 by Joerg Arndt at Tue Feb 12 01:16:10 EST 2019

STATUS

proposed

approved

#19 by Michel Marcus at Tue Feb 12 00:26:52 EST 2019

STATUS

editing

proposed

#18 by Michel Marcus at Tue Feb 12 00:26:48 EST 2019

CROSSREFS

Cf. A000796, A081368, A090897.

STATUS

proposed

editing

#17 by Jon E. Schoenfield at Mon Feb 11 23:44:40 EST 2019

STATUS

editing

proposed

#16 by Jon E. Schoenfield at Mon Feb 11 23:44:36 EST 2019

NAME

a(0) = 3; for n > 0, break up decimal expansion of Pi into chunks of increasing lengths; leading zeros are not printed.

MAPLE

with(StringTools): lim:=23: s:=convert(evalf[lim^2](Pi-3), string): printf("3, "): for n from 1 to lim do printf("%d, ", parse(SubString(s, (n-1)*n/2+2..n*(n+1)/2+1))); od: # _Nathaniel Johnston, _, May 08 2011

STATUS

approved

editing

#15 by Charles R Greathouse IV at Thu Nov 21 12:49:18 EST 2013

MATHEMATICA

Join[{3}, FromDigits/@With[{p=RealDigits[Pi, 10, 220][[1]]}, Table[ Take[ p, {(n(n-1))/2+2, (n(n-1))/2+1+n}], {n, 20}]]] (* From _Harvey P. Dale, _, Aug 20 2011 *)

Discussion

Thu Nov 21

12:49

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

#14 by Russ Cox at Sat Mar 31 13:22:27 EDT 2012

EXTENSIONS

Extended by _Nathaniel Johnston (nathaniel(AT)nathanieljohnston.com), _, May 08 2011

Discussion

Sat Mar 31

13:22

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