|
%I #9 Jun 12 2018 10:17:12
%S 1,2,2,4,2,12,2,8,6,20,2,72,2,28,30,16,2,180,2,200,42,44,2,432,10,44,
%T 30,392,2,11700,2,32,66,20,70,5400,2,44,66,2000,2,29988,2,968,1950,76,
%U 2,2592,14,1100,30,968,2,20700,110,5488,66,76,2,4563000,2,116,3570,64,110,21780,2,200,114,53900,2,162000,2,68,4290,968,154,82764,2,20000
%N a(n) = Product_{d|n, d<n} prime(A286622(d)-1).
%H Antti Karttunen, <a href="/A305792/b305792.txt">Table of n, a(n) for n = 1..8192</a>
%F a(n) = Product_{d|n, d<n} A008578(A286622(d)).
%F For all k >= 0, a(2^k) = 2^k.
%o (PARI) A305792(n) = { my(m=1); fordiv(n,d,if(d<n, m *= prime(A286622(d)-1))); (m); }; \\ Needs also code from A286622.
%Y Cf. A008578, A278222, A286622, A305793 (rgs-transform), A305794.
%Y Cf. also A293214, A304102.
%K nonn
%O 1,2
%A _Antti Karttunen_, Jun 11 2018
|
