A384084 Numbers whose prime signatures are self-conjugate.
1, 2, 3, 5, 7, 11, 12, 13, 17, 18, 19, 20, 23, 28, 29, 31, 36, 37, 41, 43, 44, 45, 47, 50, 52, 53, 59, 61, 63, 67, 68, 71, 73, 75, 76, 79, 83, 89, 92, 97, 98, 99, 100, 101, 103, 107, 109, 113, 116, 117, 120, 124, 127, 131, 137, 139, 147, 148, 149, 151, 153
Offset: 1
Keywords
Examples
120 is a term; its prime factorization (2^3)(3^2)(5^1) is self-conjugate. 24 is not a term; its prime factorization (2^3)(3^1) is not self-conjugate.
Links
- Hal M. Switkay, Table of n, a(n) for n = 1..342
- Eric Weisstein's World of Mathematics, Self-Conjugate Partition.
Programs
-
Mathematica
selfQ[p_] := ResourceFunction["ConjugatePartition"][p] == p; q[n_] := selfQ[Sort[FactorInteger[n][[;;, 2]], Greater]]; Select[Range[200], q] (* Amiram Eldar, May 26 2025 *)
Comments