OFFSET
1,1
COMMENTS
No additional terms through n <= 2000. (* Harvey P. Dale, Feb 17 2023 *)
REFERENCES
R. A. Brualdi and H. J. Ryser: Combinatorial Matrix Theory, 1992, Section 7.2, p. 202.
H. J. Ryser, Combinatorial Mathematics. Mathematical Association of America, Carus Mathematical Monograph 14, 1963, p. 23.
LINKS
R. M. Dickau, Derangement diagrams.
H. Fripertinger, The Recontre Numbers, an online calculator.
Mehdi Hassani, Derangements and Applications, Journal of Integer Sequences, Vol. 6 (2003), #03.1.2
EXAMPLE
a(5) = 130850092279663 because the 5th subfactorial prime is !17 - 1 = 130850092279664 - 1 = 130850092279663. a(1) = 2 because !0 = !2 = 1, so !0 + 1 = !2 + 1 = 2.
MATHEMATICA
Select[Union[Flatten[Table[Subfactorial[n]+{1, -1}, {n, 20}]]], PrimeQ] (* Harvey P. Dale, Feb 17 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jonathan Vos Post, Nov 18 2004
STATUS
approved