OFFSET
1,1
FORMULA
a(n) = A006512(n)! / 2. - Sean A. Irvine, Dec 18 2025
MATHEMATICA
#!/2&/@Select[Partition[Prime[Range[50]], 2, 1], #[[2]]-#[[1]]==2&][[All, 2]] (* Harvey P. Dale, Nov 27 2016 *)
PROG
(PARI) tpperm2(n) = { forprime(x=3, n, if(isprime(x-2), print1(x!/2" ") ) ) }
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Cino Hilliard, May 18 2003
EXTENSIONS
Offset changed by Sean A. Irvine, Dec 18 2025
STATUS
approved
