login
A319344
a(n) = Product_{d|n, d>1} prime(A318881(d)), where A318881(d) records the prime signature of A000010(d).
4
1, 2, 3, 6, 5, 18, 7, 30, 21, 50, 7, 270, 11, 98, 195, 390, 17, 882, 11, 1950, 231, 98, 7, 17550, 55, 242, 231, 3234, 11, 76050, 19, 6630, 231, 578, 805, 145530, 29, 242, 759, 165750, 23, 106722, 19, 3234, 31395, 98, 7, 3878550, 133, 6050, 1581, 16698, 11, 106722, 805, 371910, 957, 242, 7, 252105750, 37, 722, 46893, 205530, 2255, 106722, 19
OFFSET
1,2
LINKS
FORMULA
a(n) = Product_{d|n, d>1} prime(A318881(d)).
PROG
(PARI) A319344(n) = { my(m=1); fordiv(n, d, if((d>1), m *= prime(A318881(d)))); (m); }; \\ Needs also code from A318881
CROSSREFS
Cf. A318881, A319342, A319345 (rgs-transform).
Cf. also A305984.
Sequence in context: A345129 A329354 A332461 * A260443 A328316 A373003
KEYWORD
nonn
AUTHOR
Antti Karttunen, Sep 17 2018
STATUS
approved