%I #19 Mar 13 2024 09:11:30
%S 1,5,19,13,211,95,2059,1261,19171,5275,7613,1159,1586131,4766585,
%T 14316139,505661,129009091,2910965,1161737179,12675403,10458256051,
%U 1364211535,2002867877,620687383,847255055011,2541798719465,7625463267259,157769131169,68629840493971,86254737475
%N a(n) are the denominators corresponding to A370823(n).
%C See A370823 for more information.
%H Paolo Xausa, <a href="/A370824/b370824.txt">Table of n, a(n) for n = 1..1000</a>
%F Denominator of 2^(n-1)*(3^n-1)/(3^n-2^n). - _Chai Wah Wu_, Mar 07 2024
%e A370823(n)/a(n) for n = 1..11: 2/1, 16/5, 104/19, 128/13, 3872/211, 3328/95, 139904/2059, 167936/1261, 5038592/19171, 2748416/5275, 7886848/7613.
%t Array[Denominator[(3^#-1)/((3/2)^#-1)/2] &, 35] (* _Paolo Xausa_, Mar 13 2024 *)
%o (PARI) \\ See A370823 for functions a370823_4(n)
%o denominator(a370823_4(n))
%o (Python)
%o from math import gcd
%o def A370824(n): return (a:=3**n-(1<<n))//gcd(a,3**n-1<<n-1) # _Chai Wah Wu_, Mar 07 2024
%Y A370823 are the corresponding numerators.
%K nonn,frac
%O 1,2
%A _Hugo Pfoertner_, Mar 02 2024
|