OFFSET
1,1
COMMENTS
Numbers that are products of a power of primorial P(k)^m and a superprimorial Q(k), k > 1, m >= 1.
LINKS
Michael De Vlieger, Table of n, a(n) for n = 1..4100
EXAMPLE
Table of n, a(n) = P(k)^m * Q(k), for n <= 12, 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 72 = P(2)^1 * Q(2) 2 1 3.2
2 432 = P(2)^2 * Q(2) 2 2 4.3
3 2592 = P(2)^3 * Q(2) 2 3 5.4
4 10800 = P(3)^1 * Q(3) 3 1 4.3.2
5 15552 = P(2)^4 * Q(2) 2 4 6.5
6 93312 = P(2)^5 * Q(2) 2 5 7.6
7 324000 = P(3)^2 * Q(3) 3 2 5.4.3
8 559872 = P(2)^6 * Q(2) 2 6 8.7
9 3359232 = P(2)^7 * Q(2) 2 7 9.8
10 9720000 = P(3)^3 * Q(3) 3 3 6.5.4
11 15876000 = P(4)^1 * Q(4) 4 1 5.4.3.2
12 20155392 = P(2)^8 * Q(2) 2 8 10.9
MATHEMATICA
nn = 2^48; k = 2; P = Fold[Times, Prime@ Range[k]]; Q = 2*P;
Union@ Reap[While[j = 1; While[Q*P^j < nn, Sow[Q*P^j]; j++]; j > 1, k++;
P *= Prime[k]; Q *= P] ][[-1, 1]]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Michael De Vlieger, Aug 31 2025
STATUS
approved
