OFFSET
1,1
LINKS
Colin Barker, Table of n, a(n) for n = 1..41
PROG
(PARI)
partial_sums(v) = {my(w=vector(#v)); w[1]=v[1]; for(i=2, #v, w[i]=w[i-1]+v[i]); w}
a115023(size) = {p=partial_sums(vector(size, k, k--; 1/bernfrac(2*k))); vector(size, k, numerator(p[k]))}
a115023(20) \\ Colin Barker, May 19 2015
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Pasquale Cutolo (p.cutolo(AT)inwind.it), Feb 24 2006
STATUS
approved