OFFSET
1,2
LINKS
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)
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 *)
PROG
(PARI) a(n) = prod(k = 1, n, 24^k - 1); \\ Amiram Eldar, Jul 14 2025
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved