|
Search: id:A075874
|
|
|
| A075874 |
|
Pi = Sum a(n)/n!, n=1..inf. |
|
+0
5
|
|
| 3, 0, 0, 3, 1, 5, 6, 5, 0, 1, 4, 7, 8, 0, 6, 7, 10, 7, 10, 4, 10, 6, 16, 1, 11, 20, 3, 18, 12, 9, 13, 18, 21, 14, 34, 27, 11, 27, 33, 36, 18, 5, 18, 5, 23, 39, 1, 10, 42, 28, 17, 20, 51, 8, 42, 47, 0, 27, 23, 16, 52, 32, 52, 53, 24, 43, 61, 64, 18, 17, 11, 0, 53, 14, 62
(list; graph; listen)
|
|
|
OFFSET
|
0,1
|
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Harmonic Expansion
|
|
FORMULA
|
a(1)=3; for n>1 a(n) =floor(n!*Pi)-n*floor((n-1)!*Pi) - Benoit Cloitre (benoit7848c(AT)orange.fr), Mar 10 2002
|
|
EXAMPLE
|
Pi = 3/1! + 0/2! + 0/3! + 3/4! + 1/5! + ...
|
|
MAPLE
|
Digits := 120; M := proc(a, n) local i, b, c; b := a; c := [ floor(b) ]; for i from 1 to n-1 do b := b-c[ i ]/i!; c := [ op(c), floor(b*(i+1)!) ]; od; c; end: t1 := M(Pi, 100); A075874 := n->t1[n+1];
|
|
MATHEMATICA
|
p = N[Pi, 1000]; Do[k = Floor[p*n! ]; p = p - k/n!; Print[k], {n, 1, 75} ]
|
|
CROSSREFS
|
Essentially same as A007514.
Pi in base n: A004601 to A004608, A000796, A068436 to A068440, A062964.
Sequence in context: A021337 A033685 A063691 this_sequence A111787 A091921 A037285
Adjacent sequences: A075871 A075872 A075873 this_sequence A075875 A075876 A075877
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
njas, Robert G. Wilson v (rgwv(AT)rgwv.com), Nov 02, 2001 and Oct 20, 2002
|
|
|
Search completed in 0.002 seconds
|
