|
|
A033468
|
|
Partial sums of sequence {1/(i^2+1): i=0..n} (denominators).
|
|
3
|
|
|
1, 2, 10, 5, 85, 2210, 81770, 204425, 204425, 16762850, 1693047850, 51637959425, 1497500823325, 2995001646650, 590015324390050, 33335865828037825, 8567317517805721025, 17134635035611442050
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
MAPLE
|
S:= 0:
for i from 0 to 50 do
S:= S + 1/(i^2+1);
A[i]:= denom(S)
od:
|
|
MATHEMATICA
|
Accumulate[Table[1/(n^2+1), {n, 0, 20}]]//Denominator (* Harvey P. Dale, Jan 20 2020 *)
|
|
PROG
|
(PARI) for(n=0, 20, print1(denominator(sum(k=0, n, 1/(k^2+1))), ", ")) \\ Hugo Pfoertner, Apr 27 2020
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|