|
|
A369119
|
|
a(n) = (n + 1)^[is_prime(n + 1)] * n!.
|
|
1
|
|
|
1, 2, 6, 6, 120, 120, 5040, 5040, 40320, 362880, 39916800, 39916800, 6227020800, 6227020800, 87178291200, 1307674368000, 355687428096000, 355687428096000, 121645100408832000, 121645100408832000, 2432902008176640000, 51090942171709440000
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,2
|
|
LINKS
|
|
|
FORMULA
|
a(2*n)*Bernoulli(2*n) = A347425(n).
|
|
MATHEMATICA
|
A369119[n_] := n! If[PrimeQ[n+1], n+1, 1];
|
|
PROG
|
(SageMath)
def A369119(n): return (n+1)^is_prime(n+1)*factorial(n)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|