This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A361633 #13 Aug 04 2024 10:14:05
%S A361633 1,1,1,1,2,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,2,1,1,1,2,1,1,1,1,1,1,1,2,1,
%T A361633 2,1,2,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1,2,1,2,1,2,1,1,1,1,1,1,1,
%U A361633 1,1,1,1,2,1,1,1,1,1,1,1,2,1,2,1,2,1,1,1
%N A361633 a(n) is the denominator of the median of the prime factors of n with repetition.
%F A361633 For p a prime, a(p^k) = 1.
%F A361633 a(n) = denominator((A079879(n) + A361725(n))/2).
%e A361633 a(12) = 1 since 12 = 2*2*3, and the median of the factors is equal to 2/1.
%e A361633 a(36) = 2 since 30 = 2*2*3*3, and the median of the factors is equal to 5/2.
%t A361633 a[n_]:=Denominator[Median[Flatten[ Table[#[[1]], {#[[2]]}] & /@ FactorInteger[n]]]]; Array[a,88,2]
%Y A361633 Cf. A001222, A027746, A079879, A323172, A361566, A361631 (without repetition), A361632 (numerator), A361725.
%K A361633 nonn,frac
%O A361633 2,5
%A A361633 _Stefano Spezia_, Mar 18 2023
%E A361633 Example corrected by _Peter Munn_, Aug 04 2024