A079266 Subprimorials, extrapolation from primorials by analogy with subfactorials.
0, 1, 2, 11, 77, 850, 11047, 187806, 3568317, 82071280, 2380067130, 73782081030, 2729936998114, 111927416922654, 4812878927674125, 226205309600683885, 11988881408836245894, 707344003121338507758, 43147984190401648973266
Offset: 0
Keywords
Examples
a(3) = 11 because Prime(3) = 5, 5# = 30, 30/e = 11.036...
Programs
-
Mathematica
Table[Round[Times @@ Prime@Range@n/E], {n, 18}] (* Robert G. Wilson v, Apr 30 2009 *) Join[{0},Round[FoldList[Times,Prime[Range[20]]]/E]] (* Harvey P. Dale, Oct 22 2023 *)
Formula
a(n) = Round(Prime(n)#/e), where p# = p primorial, with Prime(0)# = 1.
Extensions
Edited by Franklin T. Adams-Watters, Aug 08 2006
More terms from Robert G. Wilson v, Apr 30 2009