OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
MATHEMATICA
((#[[1]]+1)(#[[2]]+1))/(4(Times@@#+1))&/@Partition[Prime[Range[50]], 2, 1]//Denominator (* Harvey P. Dale, Jan 01 2018 *)
PROG
(Haskell)
a079082 n = a079082_list !! (n-1)
a079082_list = zipWith div (tail a023523_list) a079080_list
-- Reinhard Zumkeller, Oct 09 2012
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Reinhard Zumkeller, Dec 22 2002
STATUS
approved