The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A236401

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A236401

Kurepa determinant K_n.
(history; published version)

#17 by Vaclav Kotesovec at Thu Nov 30 03:55:42 EST 2017

STATUS

editing

approved

#16 by Vaclav Kotesovec at Thu Nov 30 03:55:26 EST 2017

FORMULA

Conjecture: a(n) ~ -(-1)^n * n! * exp(-1) / n^4. - Vaclav Kotesovec, Nov 30 2017

STATUS

proposed

editing

#15 by Michel Marcus at Thu Nov 30 02:08:49 EST 2017

STATUS

editing

proposed

#14 by Michel Marcus at Thu Nov 30 02:08:43 EST 2017

REFERENCES

Romeo Mestrovic, The Kurepa-Vandermonde matrices arising from Kurepa's left factorial hypothesis, Filomat 29:10 (2015), 2207-2215; DOI 10.2298/FIL1510207M; Available at: http://www.pmf.ni.ac.rs/filomat

LINKS

Romeo Mestrovic, <a href="https://doi.org/10.2298/FIL1510207M">The Kurepa-Vandermonde matrices arising from Kurepa's left factorial hypothesis</a>, Filomat 29:10 (2015), 2207-2215; DOI 10.2298/FIL1510207M.

#13 by Michel Marcus at Thu Nov 30 02:05:19 EST 2017

LINKS

Romeo Mestrovic, <a href="http://arxiv.org/abs/1312.7037">Variations of Kurepa's left factorial hypothesis</a>, arXiv preprint arXiv:1312.7037, [math.NT], 2013-2014.

STATUS

proposed

editing

#12 by Jean-François Alcover at Thu Nov 30 02:02:51 EST 2017

STATUS

editing

proposed

#11 by Jean-François Alcover at Thu Nov 30 02:02:09 EST 2017

MATHEMATICA

A236401[n_] := Det[Table[Which[r == 1, If[c < n - 4, 1, 3],

r == 1, If[c < n - 4, Which[1, 3],

c r == n - 4, -4, Which[

c == n - 5, 1, 4, -4,

c == n - 5, 1,

True, 0],

c == n - 4, 2,

r > c + 2, 0,

r == c + 2, 1,

r == c + 1, r + 1,

c == n - 4, 2,

True, 1],

#10 by Jean-François Alcover at Thu Nov 30 01:58:55 EST 2017

MATHEMATICA

A236401[n_] := Det[Table[Which[r == 1, If[c < n - 4, 1, 3],

r == n - 4, Which[

c == n - 4, -4,

c == n - 5, 1,

True, 0],

c == n - 4, 2,

r > c + 2, 0,

r == c + 2, 1,

r == c + 1, r + 1,

c == n - 4, 2,

True, 1],

{r, 1, n - 4}, {c, 1, n - 4}]];

Table[A236401[n], {n, 7, 25}] (* Jean-François Alcover, Nov 30 2017, from Maple *)

STATUS

approved

editing

#9 by N. J. A. Sloane at Tue Dec 13 22:05:00 EST 2016

STATUS

editing

approved

#8 by N. J. A. Sloane at Tue Dec 13 22:04:58 EST 2016

REFERENCES

STATUS

approved

editing