cp's OEIS Frontend

A319344 a(n) = Product_{d|n, d>1} prime(A318881(d)), where A318881(d) records the prime signature of A000010(d).

%I A319344 #5 Sep 17 2018 15:45:40
%S A319344 1,2,3,6,5,18,7,30,21,50,7,270,11,98,195,390,17,882,11,1950,231,98,7,
%T A319344 17550,55,242,231,3234,11,76050,19,6630,231,578,805,145530,29,242,759,
%U A319344 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
%N A319344 a(n) = Product_{d|n, d>1} prime(A318881(d)), where A318881(d) records the prime signature of A000010(d).
%H A319344 Antti Karttunen, <a href="/A319344/b319344.txt">Table of n, a(n) for n = 1..8192</a>
%F A319344 a(n) = Product_{d|n, d>1} prime(A318881(d)).
%o A319344 (PARI) A319344(n) = { my(m=1); fordiv(n, d, if((d>1), m *= prime(A318881(d)))); (m); }; \\ Needs also code from A318881
%Y A319344 Cf. A318881, A319342, A319345 (rgs-transform).
%Y A319344 Cf. also A305984.
%K A319344 nonn
%O A319344 1,2
%A A319344 _Antti Karttunen_, Sep 17 2018