login
A161744
The subfactorial with index prime(n).
0
1, 2, 44, 1854, 14684570, 2290792932, 130850092279664, 44750731559645106, 9510425471055777937262, 3252702461227859257745914274516, 3025013288941909109703700275299910
OFFSET
1,2
FORMULA
a(n)=A000166(A000040(n)). [R. J. Mathar, Jun 27 2009]
MATHEMATICA
<<DiscreteMath`CombinatorialFunctions` lst={}; Do[AppendTo[lst, Subfactorial[Prime[n]]], {n, 3*3!}]; lst
CROSSREFS
Sequence in context: A094397 A213067 A140795 * A208045 A267070 A054732
KEYWORD
nonn
AUTHOR
EXTENSIONS
Definition rephrased by R. J. Mathar, Jun 27 2009
STATUS
approved