OFFSET
0,2
COMMENTS
Cumulative product of A036878 (after a(0)). - Rick L. Shepherd, Aug 23 2016
FORMULA
EXAMPLE
For n=0 we have an empty product, thus a(0) = 1.
For n=1, a(1) = 2^1.
For n=2, a(2) = 2^1 * 3^2 = 18.
For n=3, a(3) = 2^1 * 3^2 * 5^4 = 11250.
MATHEMATICA
Table[Product[Prime[i]^(Prime[i] - 1), {i, n}], {n, 0, 9}] (* Michael De Vlieger, Aug 31 2016 *)
PROG
(Scheme)
(define (A276092 n) (let outloop ((i n) (t 1)) (if (zero? i) t (let ((p (A000040 i))) (let inloop ((j (- p 1)) (t t)) (if (zero? j) (outloop (- i 1) t) (inloop (- j 1) (* t p))))))))
;; Or as a recurrence:
(PARI)
A276092(n) = prod(i=1, n, prime(i)^(prime(i) - 1)) \\ Rick L. Shepherd, Aug 23 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Aug 22 2016
STATUS
approved