A114574 a(n) = p*p! where p = prime(n).

4, 18, 600, 35280, 439084800, 80951270400, 6046686277632000, 2311256907767808000, 594596384994354462720000, 256411097818451356681764864000000, 254907998279515607349492449280000000, 509258864375374766713691244518493388800000000, 1371553591139716091434972544191070818271232000000000

Offset

1,1

References

Originally published on Nov 09 2004 by indiejade(AT)gmail.com

Links

Table of n, a(n) for n=1..13.

Formula

a(n) = A000040(n)*A039716(n). - Michel Marcus, Feb 08 2015

a(n) = A001563(A000040(n)). - Michel Marcus, Aug 04 2015

Example

2 * 2! = 4, 3 * 3! = 18, 5 * 5! = 600.

Mathematica

Array[Prime[#] Prime[#]! &, 13] (* Michael De Vlieger, Aug 04 2015 *)
#*#!&/@Prime[Range[15]] (* Harvey P. Dale, Sep 21 2024 *)

Prog

(Magma) [p*Factorial(p): p in PrimesUpTo(50)]; // Vincenzo Librandi, Jun 09 2013
(Python)
from sympy import factorial, prime
def a(n): p = prime(n); return p * factorial(p)
print([a(n) for n in range(1, 14)]) # Michael S. Branicky, Apr 18 2021

Crossrefs

Cf. A000040 (prime(n)), A039716 (prime(n)!).

Sequence in context: A086400 A082022 A354303 * A295223 A173222 A342467

Adjacent sequences: A114571 A114572 A114573 * A114575 A114576 A114577

Keyword

nonn

Author

L. Shawnee Cook (shawneecook(AT)gmail.com), Feb 17 2006

Status

approved