|
%I #9 Jun 12 2018 10:16:54
%S 1,2,3,4,5,18,7,8,15,50,11,108,11,98,195,16,5,450,11,500,357,242,19,
%T 648,55,242,345,1372,19,76050,29,32,165,50,385,13500,17,242,627,5000,
%U 17,254898,31,5324,30225,722,37,3888,77,6050,345,5324,31,238050,2255,19208,627,722,41,29659500,37,1682,76755,64,275,54450,11,500,969,296450,19,405000,17
%N a(n) = Product_{d|n, d>1} prime(A286622(d)-1).
%H Antti Karttunen, <a href="/A305794/b305794.txt">Table of n, a(n) for n = 1..8192</a>
%F a(n) = Product_{d|n, d>1} A008578(A286622(d)).
%F For all k >= 0, a(2^k) = 2^k.
%o (PARI) A305794(n) = { my(m=1); fordiv(n, d, if(d>1, m *= prime(A286622(d)-1))); (m); }; \\ Needs also code from A286622.
%Y Cf. A008578, A278222, A286622, A305792, A305795 (rgs-transform).
%Y Cf. also A304104.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jun 11 2018
|
