login
A351944
a(n) = A003557(A181819(n)).
6
1, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 2, 1, 1, 1, 4, 1, 1, 2, 2, 2, 3, 1, 2, 2, 1, 1, 4, 1, 1, 1, 2, 1, 1, 1, 1, 2, 1, 1, 1, 2, 1, 2, 2, 1, 2, 1, 2, 1, 1, 2, 4, 1, 1, 2, 4, 1, 1, 1, 2, 1, 1, 2, 4, 1, 1, 1, 2, 1, 2, 2, 2, 2, 1, 1, 2, 2, 1, 2, 2, 2, 1, 1, 1, 1, 3, 1, 4, 1, 1, 4
OFFSET
1,6
FORMULA
a(n) = A181819(n) / A329601(n) = A003557(A181819(n)).
PROG
(PARI)
A003557(n) = (n/factorback(factorint(n)[, 1]));
A181819(n) = factorback(apply(e->prime(e), (factor(n)[, 2])));
CROSSREFS
Cf. also A295879.
Sequence in context: A362613 A327500 A351946 * A366918 A066922 A371244
KEYWORD
nonn
AUTHOR
Antti Karttunen, Apr 02 2022
STATUS
approved