A094056 Number of digits in A002860(n) (number of Latin squares).
1, 1, 2, 3, 6, 9, 14, 21, 28, 37, 48
Offset: 1
Formula
Extensions
a(8)-a(11) added by Andrew Howroyd, Sep 28 2020
This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
a007283 = (* 3) . (2 ^) a007283_list = iterate (* 2) 3 -- Reinhard Zumkeller, Mar 18 2012, Feb 20 2012
[3*2^n: n in [0..30]]; // Vincenzo Librandi, May 18 2011
A007283:=n->3*2^n; seq(A007283(n), n=0..50); # Wesley Ivan Hurt, Dec 03 2013
Table[3(2^n), {n, 0, 32}] (* Alonso del Arte, Mar 24 2011 *)
A007283(n):=3*2^n$ makelist(A007283(n),n,0,30); /* Martin Ettl, Nov 11 2012 */
a(n)=3*2^n
a(n)=3<Charles R Greathouse IV, Oct 10 2012
def A007283(n): return 3<Chai Wah Wu, Feb 14 2023
(List.fill(40)(2: BigInt)).scanLeft(1: BigInt)( * ).map(3 * ) // _Alonso del Arte, Nov 28 2019
a(3) = 1 because after 123 in the first row and column, 213 is not allowed for the second row, so it must be 231 and thus the third row is 312.
(* This script is not suitable for n > 6 *) matrices[n_ /; n > 1] := Module[{a, t, vars}, t = Table[Which[i==1, j, j==1, i, j>i, a[i, j], True, a[j, i]], {i, n}, {j, n}]; vars = Select[Flatten[t], !IntegerQ[#]& ] // Union; t /. {Reduce[And @@ (1 <= # <= n & /@ vars) && And @@ Unequal @@@ t, vars, Integers] // ToRules}]; a[0] = a[1] = 1; a[n_] := Length[ matrices[n]]; Table[an = a[n]; Print["a(", n, ") = ", an]; an, {n, 0, 6}] (* Jean-François Alcover, Jan 04 2016 *)
a[n_] := n*(n!)^(2*n - 2); Table[a[n], {n, 1, 9}] (* Robert P. P. McKone, Feb 12 2022 *)
a(n) = n*(n!)^(2*n-2) \\ Andrew Howroyd, Feb 12 2022
Comments