A028693 24-factorial numbers.

1, 23, 13225, 182809175, 60651514035625, 482945140644890444375, 92292253139031982469134515625, 423295781586452233477722435457009484375, 46594416147080909523690749946376478698532878515625, 123093479909646650570543074660375014342475500150254964721484375

Offset: 1

Author

Olivier Gérard

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..38
• Index entries for sequences related to factorial numbers.

Crossrefs

Cf. A005329, A027871, A027637, A027872, A027873, A027875, A027876, A027877, A027878, A027879, A027880, A028692, A028694.

Programs

Mathematica

FoldList[ #1 (24^#2-1)&, 1, Range[ 20 ] ]
a[n_] := Abs[QPochhammer[24, 24, n]]; Array[a, 10, 0] (* Amiram Eldar, Jul 14 2025 *)

PARI

a(n) = prod(k = 1, n, 24^k - 1); \\ Amiram Eldar, Jul 14 2025

Formula

From Amiram Eldar, Jul 14 2025: (Start)

a(n) = Product_{k=1..n} (24^k-1).

a(n) ~ c * 24^(n*(n+1)/2), where c = Product_{k>=1} (1 - 1/24^k) = 0.956597348026... . (End)