|
|
A090114
|
|
a(n) = Product_{j=1..n} (prime(n)-j).
|
|
1
|
|
|
1, 2, 24, 360, 30240, 665280, 57657600, 1764322560, 180503769600, 47621141568000, 2180547008640000, 599555620984320000, 74931129164795904000, 4608264443634948096000, 669187660275478536192000, 216826941136228916613120000, 70265584374661732509573120000, 5922384968721488882949734400000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
EXAMPLE
|
n=5: prime(5)=11, a(5)=(11-1)*(11-2)*(11-3)*(11-4)*(11-5) = 10.9.8.7.6 = 30240.
|
|
MATHEMATICA
|
Table[Apply[Times, Table[Prime[w]-j, {j, 1, w}]], {w, 1, 15}]
|
|
PROG
|
(PARI) a(n) = prod(j=1, n, prime(n) - j); \\ Michel Marcus, Aug 27 2019
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|