|
%I #14 Nov 12 2023 11:34:35
%S 1,1,91,4831,39914491,6226990771,355687427585491,121645100399132311,
%T 25852016738884753547131,8841761993739701954537146306771,
%U 8222838654177922817725362319509871
%N a(n) = prime(n)! - prime(n)# + 1.
%H G. C. Greubel, <a href="/A103855/b103855.txt">Table of n, a(n) for n = 1..86</a>
%H Reinhard Zumkeller, <a href="/A103855/a103855.txt">p(n)!-p(n )#+1</a>
%F a(n) = A039716(n)-A002110(n)+1 = A002110(n)*(A092435(n)-1)+1.
%t primorial[n_] := Product[Prime[i], {i, n}]; A103855[n_] := Prime[n]! - primorial[n] + 1; Array[A103855, 20] (* _G. C. Greubel_, May 09 2017 *)
%Y Cf. A103856, A103857, A103858, A103859, A103860, A103861, A103890.
%Y Cf. A002110, A039716, A092435.
%K nonn
%O 1,3
%A _Reinhard Zumkeller_, Feb 20 2005
|
