A321340 a(1) = 1; thereafter a(n) = a(n-1) * prime(n-1)^a(n-1).
1, 2, 18, 68664550781250
Offset: 1
Keywords
Examples
68664550781250 = 2 * 3^2 * 5^18 = prime(1)^1 * prime(2)^2 * prime(3)^18.
Programs
-
Mathematica
Nest[Append[#, #[[-1]] Prime[Length@ #]^#[[-1]] ] &, {1}, 3] (* Michael De Vlieger, Nov 05 2018 *)
-
PARI
apply( ppp(n) = prod(i=1, n-1, prime(i)^ppp(i)), [1..4] )
Comments