OFFSET
0,2
LINKS
Robert Israel, Table of n, a(n) for n = 0..389
MAPLE
S:= 0:
for i from 0 to 50 do
S:= S + 1/(i^2+1);
A[i]:= denom(S)
od:
seq(A[i], i=0..50); # Robert Israel, Apr 27 2020
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