OFFSET
1,2
MATHEMATICA
<<DiscreteMath`CombinatorialFunctions` lst={}; Do[AppendTo[lst, Subfactorial[Prime[n]]], {n, 3*3!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Jun 17 2009
EXTENSIONS
Definition rephrased by R. J. Mathar, Jun 27 2009
STATUS
approved