|
%I #12 Oct 22 2023 13:04:37
%S 0,1,2,11,77,850,11047,187806,3568317,82071280,2380067130,73782081030,
%T 2729936998114,111927416922654,4812878927674125,226205309600683885,
%U 11988881408836245894,707344003121338507758,43147984190401648973266
%N Subprimorials, extrapolation from primorials by analogy with subfactorials.
%F a(n) = Round(Prime(n)#/e), where p# = p primorial, with Prime(0)# = 1.
%e a(3) = 11 because Prime(3) = 5, 5# = 30, 30/e = 11.036...
%t Table[Round[Times @@ Prime@Range@n/E], {n, 18}] (* _Robert G. Wilson v_, Apr 30 2009 *)
%t Join[{0},Round[FoldList[Times,Prime[Range[20]]]/E]] (* _Harvey P. Dale_, Oct 22 2023 *)
%Y Cf. A002110, A000166.
%Y See A121572 for a different definition of subprimorial.
%K nonn
%O 0,3
%A _Michael Joseph Halm_, Feb 05 2003
%E Edited by _Franklin T. Adams-Watters_, Aug 08 2006
%E More terms from _Robert G. Wilson v_, Apr 30 2009
|
