login
A066161
Let p = n-th prime; sequence gives ((p-2)!-1)/p.
2
0, 0, 1, 17, 32989, 3070523, 76922021647, 18720390952421, 2221345311813453913, 375478256910977660716137931, 285218128830312966275600516129, 279274269361787700801801387500627027027, 497509319053596179479031261948851155043902439, 777965735189855979259768884963738410817488372093
OFFSET
1,4
COMMENTS
A variant of Wilson's theorem says that this is always an integer.
LINKS
Ed Pegg, Jr., Math. Puzzles
MAPLE
A066161:=n->((ithprime(n)-2)!-1)/ithprime(n): seq(A066161(n), n=1..15); # Wesley Ivan Hurt, Dec 01 2015
MATHEMATICA
Table[((Prime[n] - 2)! - 1)/Prime[n], {n, 15}] (* Wesley Ivan Hurt, Dec 01 2015 *)
((#-2)!-1)/#&/@Prime[Range[20]] (* Harvey P. Dale, Jun 19 2021 *)
PROG
(PARI) { for (n=1, 50, p=prime(n); write("b066161.txt", n, " ", ((p - 2)! - 1)/p) ) } \\ Harry J. Smith, Feb 03 2010
CROSSREFS
Sequence in context: A178050 A110915 A068733 * A125040 A125042 A373896
KEYWORD
nonn,easy
AUTHOR
N. J. A. Sloane, Dec 13 2001
STATUS
approved