%I #19 Feb 20 2025 11:54:45

%S 2,3,8,5,18,7,64,27,25,11,288,13,98,225,1024,17,729,19,2000,147,242,

%T 23,55296,125,169,729,10976,29,1125,31,32768,1089,289,1225,209952,37,

%U 722,507,640000,41,64827,43,42592,91125,1058,47,14155776,343,15625,2601

%N Numerator of A010786(n+1) / A010786(n).

%H Reinhard Zumkeller, <a href="/A208449/b208449.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = A010786(n+1) / A208448(n).

%F a(n) = A007955(n+1)/gcd(A007955(n+1), A377484(n+1)). - _Ridouane Oudra_, Feb 03 2025

%t A208449[n_] := Times @@ # / GCD[Times @@ #, Times @@ (# - 1)] & [Rest[Divisors[n + 1]]];

%t Array[A208449, 100] (* _Paolo Xausa_, Feb 20 2025 *)

%o (Haskell)

%o import Data.Ratio ((%), numerator)

%o a208449 n = a208449_list !! (n-1)

%o a208449_list = map numerator $

%o zipWith (%) (tail a010786_list) a010786_list

%o (PARI) f(n) = prod(k=1, n, n\k); \\ A010786

%o a(n) = numerator(f(n+1)/f(n)); \\ _Michel Marcus_, Feb 08 2025

%Y Cf. A208450 (denominator).

%Y Cf. A010786, A208448.

%Y Cf. A007955, A377484.

%K nonn,frac

%O 1,1

%A _Reinhard Zumkeller_, Feb 26 2012