|
|
|
|
1, 2, 2, 3, 2, 18, 2, 5, 6, 30, 2, 75, 2, 90, 60, 7, 2, 210, 2, 105, 180, 126, 2, 245, 10, 210, 14, 525, 2, 66150, 2, 11, 252, 66, 300, 1155, 2, 198, 420, 385, 2, 173250, 2, 825, 2940, 990, 2, 847, 30, 3234, 132, 1155, 2, 15246, 420, 2695, 396, 2310, 2, 2223375, 2, 6930, 1540, 13, 700, 64350, 2, 195, 1980, 171990, 2, 5005, 2, 390, 32340, 975, 1260
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
EXAMPLE
|
The divisors of 30 are [1, 2, 3, 5, 6, 10, 15, 30], of which only d = 6, 10 and 15 are such that 30/d is a prime, thus a(n) = A019565(6) * A019565(10) * A019565(15) = 15 * 21 * 210 = 66150.
|
|
PROG
|
(PARI)
A019565(n) = {my(j, v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ From A019565
A329352(n) = { my(m=1); fordiv(n, d, if(isprime(n/d), m *= A019565(d))); (m); };
|
|
CROSSREFS
|
Differs from A300832 for the first time at n=30, where a(30) = 66150, while A300832(30) = 132300.
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|