cp's OEIS Frontend

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.

A361632 a(n) is the numerator of the median of the prime factors of n with repetition.

This page as a plain text file.
%I A361632 #11 Mar 23 2023 23:09:10
%S A361632 2,3,2,5,5,7,2,3,7,11,2,13,9,4,2,17,3,19,2,5,13,23,2,5,15,3,2,29,3,31,
%T A361632 2,7,19,6,5,37,21,8,2,41,3,43,2,3,25,47,2,7,5,10,2,53,3,8,2,11,31,59,
%U A361632 5,61,33,3,2,9,3,67,2,13,5,71,2,73,39,5,2,9,3,79
%N A361632 a(n) is the numerator of the median of the prime factors of n with repetition.
%F A361632 For p a prime, a(p^k) = p.
%F A361632 a(n) = numerator((A079879(n) + A361725(n))/2).
%e A361632 a(12) = 2 since 12 = 2*2*3, and the median of the factors is equal to 2.
%e A361632 a(36) = 5 since 30 = 2*2*3*3, and the median of the factors is equal to 5/2.
%t A361632 a[n_]:=Numerator[Median[Flatten[Table[#[[1]], {#[[2]]}] & /@ FactorInteger[n]]]]; Array[a,78,2]
%Y A361632 Cf. A001222, A027746, A079879, A323171, A361565, A361630 (without repetition), A361633 (denominator), A361725.
%K A361632 nonn,frac
%O A361632 2,1
%A A361632 _Stefano Spezia_, Mar 18 2023