OFFSET
1,3
COMMENTS
LINKS
Jon E. Schoenfield, Table of n, a(n) for n = 1..149
Eric Weisstein's World of Mathematics, Alternating Factorial
MAPLE
b:= proc(n) option remember; `if`(n=0, 0, n!-b(n-1)) end:
a:= n-> `if`(n<3, 1, min(numtheory[factorset](b(n)))):
seq(a(n), n=1..41); # Alois P. Heinz, Jan 13 2023
MATHEMATICA
a[n_] := FactorInteger[AlternatingFactorial[n]][[1, 1]];
Table[a[n], {n, 1, 41}] (* Jean-François Alcover, Jan 24 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jon E. Schoenfield, Jan 13 2023
STATUS
approved