OFFSET
1,1
COMMENTS
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..4136
EXAMPLE
Table of n, a(n) = P(k)^m * Q(k), for n <= 14, illustrating prime power factor exponents, where k = omega(a(n)) = A001221(a(n)), P = A002110, and Q = A006939:
Exponents of
n a(n) k m 2.3.5.7
------------------------------------------------------
1 12 = P(2)^0 * Q(2) 2 0 2.1
2 72 = P(2)^1 * Q(2) 2 1 3.2
3 360 = P(3)^0 * Q(3) 3 0 3.2.1
4 432 = P(2)^2 * Q(2) 2 2 4.3
5 2592 = P(2)^3 * Q(2) 2 3 5.4
6 10800 = P(3)^2 * Q(3) 3 2 4.3.2
7 15552 = P(2)^4 * Q(2) 2 4 6.5
8 75600 = P(4)^0 * Q(4) 4 0 4.3.2.1
9 93312 = P(2)^5 * Q(2) 2 5 7.6
10 324000 = P(3)^2 * Q(3) 4 2 5.4.3
11 559872 = P(2)^6 * Q(2) 2 6 8.7
12 3359232 = P(2)^7 * Q(2) 2 7 9.8
13 9720000 = P(3)^3 * Q(3) 3 3 6.5.4
14 15876000 = P(4)^1 * Q(4) 4 1 5.4.3.2
MATHEMATICA
nn = 2^40; k = 2; P = Fold[Times, Prime@ Range[k]]; Q = 2*P;
Union@ Reap[While[j = 0; While[Q*P^j < nn, Sow[Q*P^j]; j++]; j > 0, k++;
P *= Prime[k]; Q *= P] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Aug 31 2025
STATUS
approved
