|
|
A060805
|
|
Numerators of special continued fraction for 2*zeta(3).
|
|
2
|
|
|
2, 1, 2, 1, 4, 2, 6, 4, 9, 6, 12, 9, 16, 12, 20, 16, 25, 20, 30, 25, 36, 30, 42, 36, 49, 42, 56, 49, 64, 56, 72, 64, 81, 72, 90, 81, 100, 90, 110, 100, 121, 110, 132, 121, 144, 132, 156, 144, 169, 156, 182, 169, 196, 182, 210, 196, 225, 210, 240, 225, 256, 240, 272, 256
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
REFERENCES
|
Y. V. Nesterenko, A few remarks on zeta(3), Mathematical Notes, 59 (No. 6, 1996), 625-636.
|
|
LINKS
|
|
|
FORMULA
|
|
|
MAPLE
|
A060805 := proc(n) local nshf, k ; if n <= 2 then op(n, [2, 1]) ; else nshf := n-1 ; k := floor(nshf/4) ; if nshf mod 4 = 1 then k*(k+1) ; elif nshf mod 4 = 0 then (k+1)^2 ; elif nshf mod 4 = 2 then (k+1)*(k+2) ; else (k+1)^2 ; end if; end if; end proc: seq(A060805(n), n=1..80) ; # R. J. Mathar, Jul 31 2010
|
|
MATHEMATICA
|
Join[{2, 1}, LinearRecurrence[{1, 1, -1, 1, -1, -1, 1}, {2, 1, 4, 2, 6, 4, 9}, 100]] (* Jean-François Alcover, Apr 01 2020 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,cofr
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|