|
|
A066268
|
|
Product of first n primorials - 1.
|
|
4
|
|
|
1, 11, 359, 75599, 174635999, 5244319079999, 2677277333530799999, 25968760179275365451999999, 5793445238736255798985527239999999, 37481813439427687898244906452608585199999999
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
Eric Weisstein's World of Mathematics, Primorial.
|
|
EXAMPLE
|
a(3) = (2)*(2*3)*(2*3*5) - 1 = 359.
|
|
MATHEMATICA
|
Table[Times@@Table[Times@@Prime[Range[n]], {n, k}]-1, {k, 40}]
(* or *)
pr2=1; Table[pr1=1; Do[pr1=pr1*Prime[n], {n, k}]; pr2=pr2*pr1; pr2-1, {k, 40}] (* Jayanta Basu, May 12 2013 *)
|
|
PROG
|
(PARI) { p=1; q=1; for (n=1, 37, p*=prime(n); q*=p; write("b066268.txt", n, " ", q - 1) ) } \\ Harry J. Smith, Feb 08 2010
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|