[go: up one dir, main page]

login
Revision History for A345466 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing entries 1-10 | older changes
a(n) = Product_{k=1..n} binomial(n, floor(n/k)).
(history; published version)
#22 by OEIS Server at Mon Feb 05 03:10:12 EST 2024
LINKS

G. C. Greubel, <a href="/A345466/b345466_1.txt">Table of n, a(n) for n = 0..160</a>

#21 by Vaclav Kotesovec at Mon Feb 05 03:10:12 EST 2024
STATUS

reviewed

approved

Discussion
Mon Feb 05
03:10
OEIS Server: Installed first b-file as b345466.txt.
#20 by Michel Marcus at Mon Feb 05 02:31:30 EST 2024
STATUS

proposed

reviewed

#19 by G. C. Greubel at Mon Feb 05 02:29:42 EST 2024
STATUS

editing

proposed

#18 by G. C. Greubel at Mon Feb 05 02:29:21 EST 2024
LINKS

G. C. Greubel, <a href="/A345466/b345466_1.txt">Table of n, a(n) for n = 0..160</a>

PROG

(Magma) [n eq 0 select 1 else (&*[Binomial(n, Floor(n/j)): j in [1..n]]): n in [0..30]]; // G. C. Greubel, Feb 05 2024

(SageMath) [product(binomial(n, (n//j)) for j in range(1, n+1)) for n in range(31)] # G. C. Greubel, Feb 05 2024

STATUS

approved

editing

#17 by Vaclav Kotesovec at Thu Jun 24 16:37:04 EDT 2021
STATUS

editing

approved

#16 by Vaclav Kotesovec at Thu Jun 24 16:37:00 EDT 2021
FORMULA

Conjecture: log(a(n)) ~ n * log(n)^2 / 2. - Vaclav Kotesovec, Jun 21 2021

STATUS

approved

editing

#15 by Vaclav Kotesovec at Thu Jun 24 08:51:01 EDT 2021
STATUS

editing

approved

#14 by Vaclav Kotesovec at Thu Jun 24 08:50:13 EDT 2021
FORMULA

a(n) = Product_{k=1..n} ((n+1)/k - 1)^floor(n/k). - Vaclav Kotesovec, Jun 24 2021

MATHEMATICA

Table[Product[((n + 1)/k - 1)^Floor[n/k], {k, 1, n}], {n, 0, 20}] (* _Vaclav Kotesovec_, Jun 24 2021 *)

#13 by Vaclav Kotesovec at Thu Jun 24 08:47:40 EDT 2021
MATHEMATICA

Table[Product[((n + 1)/k - 1)^Floor[n/k], {k, 1, n}], {n, 0, 20}]

STATUS

approved

editing