A103855 a(n) = prime(n)! - prime(n)# + 1.

1, 1, 91, 4831, 39914491, 6226990771, 355687427585491, 121645100399132311, 25852016738884753547131, 8841761993739701954537146306771, 8222838654177922817725362319509871

Offset

1,3

Links

G. C. Greubel, Table of n, a(n) for n = 1..86

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 *)

Crossrefs

Cf. A103856, A103857, A103858, A103859, A103860, A103861, A103890.

Cf. A002110, A039716, A092435.

Sequence in context: A283383 A004380 A234123 * A238541 A217853 A210461

Adjacent sequences: A103852 A103853 A103854 * A103856 A103857 A103858

Keyword

nonn

Author

Reinhard Zumkeller, Feb 20 2005

Status

approved