A079082 - OEIS

%I #12 Jan 01 2024 13:33:43

%S 7,8,3,13,24,74,18,73,167,15,287,506,42,337,623,1564,120,2044,793,144,

%T 721,1093,3694,2878,3266,51,1837,216,4106,299,2773,8974,138,3452,75,

%U 5927,12796,4537,7223,15484,360,2881,384,12674,99,4199,3361,8437,456

%N Denominator of (prime(n)+1)*(prime(n+1)+1)/(4*(prime(n)*prime(n+1)+1)).

%C a(n) = denominator of A079079(n)/A023523(n+1);

%C a(n) = A023523(n+1)/A079080(n).

%H Reinhard Zumkeller, <a href="/A079082/b079082.txt">Table of n, a(n) for n = 1..10000</a>

%t ((#[[1]]+1)(#[[2]]+1))/(4(Times@@#+1))&/@Partition[Prime[Range[50]],2,1]//Denominator (* _Harvey P. Dale_, Jan 01 2018 *)

%o (Haskell)

%o a079082 n = a079082_list !! (n-1)

%o a079082_list = zipWith div (tail a023523_list) a079080_list

%o -- _Reinhard Zumkeller_, Oct 09 2012

%Y Numerator = A079081.

%K nonn,frac

%O 1,1

%A _Reinhard Zumkeller_, Dec 22 2002