|
|
A186944
|
|
Geometric mean of n-th row of A080508.
|
|
0
|
|
|
1, 2, 2, 6, 6, 30, 30, 210, 210, 210, 210, 2310, 2310, 30030, 30030, 30030, 30030, 510510, 510510, 9699690, 9699690, 9699690, 9699690, 223092870, 223092870, 223092870, 223092870, 223092870, 223092870, 6469693230, 6469693230, 200560490130, 200560490130
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
FORMULA
|
|
|
PROG
|
(PARI) a(n) = {if (n == 1, return (1)); if (n == 2, return (2)); f = factor((n-1)!); prod(i=1, #f~, f[i, 1]); } \\ Michel Marcus, Aug 30 2013
(PARI) a(n) = if(n==2, 2, prod(i=1, primepi(n-1), prime(i))) \\ Jeppe Stig Nielsen, Nov 04 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|