login
A103855
a(n) = prime(n)! - prime(n)# + 1.
8
1, 1, 91, 4831, 39914491, 6226990771, 355687427585491, 121645100399132311, 25852016738884753547131, 8841761993739701954537146306771, 8222838654177922817725362319509871, 13763753091226345046315979581573481661865191, 33452526613163807108170062053440751360901736472791
OFFSET
1,3
LINKS
Reinhard Zumkeller, p(n)! - p(n)# + 1.
FORMULA
a(n) = A039716(n) - A002110(n) + 1 = A002110(n) * (A092435(n) - 1) + 1.
MATHEMATICA
primorial[n_] := Product[Prime[i], {i, n}]; A103855[n_] := Prime[n]! - primorial[n] + 1; Array[A103855, 20] (* G. C. Greubel, May 09 2017 *)
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Feb 20 2005
STATUS
approved