login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
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];
Array[A369119, 25, 0] (* Paolo Xausa, Jan 15 2024 *)
PROG
(SageMath)
def A369119(n): return (n+1)^is_prime(n+1)*factorial(n)
CROSSREFS
Cf. A089026, A000142, A347425, A000367/A002445 (Bernoulli(2n)).
Sequence in context: A189144 A367676 A130726 * A279841 A219195 A212223
KEYWORD
nonn
AUTHOR
Peter Luschny, Jan 14 2024
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 7 01:49 EDT 2024. Contains 374061 sequences. (Running on oeis4.)