A304102 - OEIS

%I #14 Jun 07 2018 22:12:41

%S 1,2,2,4,2,8,2,12,4,8,2,120,2,12,8,24,2,200,2,120,12,12,2,1680,4,8,20,

%T 180,2,2000,2,120,12,44,12,12600,2,44,8,1680,2,1200,2,180,200,20,2,

%U 42000,6,440,44,120,2,7800,12,3960,44,12,2,3234000,2,44,120,840,8,10200,2,264,20,3000,2,630000,2,20,440,1452,18,2000,2,109200,260,44,2,1386000

%N a(n) = Product_{d|n, d<n} prime(A304101(d)-1).

%H Antti Karttunen, <a href="/A304102/b304102.txt">Table of n, a(n) for n = 1..4181</a>

%F a(n) = Product_{d|n, d<n} A000040(A304101(d)-1).

%F a(n) = 2*A304104(n) / A000040(A304101(n)-1).

%F Other identities. For all n >= 1:

%F A001222(a(n)) = A032741(n).

%F A007814(a(n)) = A293435(n).

%F A007949(a(n)) = A304095(n).

%o (PARI)

%o \\ Needs also code from A304101:

%o A304102(n) = { my(m=1); fordiv(n,d,if(d<n, m *= prime(A304101(d)-1))); (m); };

%Y Cf. A304101, A304103 (restricted growth sequence transform of this sequence), A304104.

%K nonn

%O 1,2

%A _Antti Karttunen_, May 13 2018