A121796 This sequence needs a meaningful name.

1, 1, 6, 22, 224, 88, 984, 2320, 10896, 79296, 98064, 811728, 2506032, 14823648, 109131840, 59294592, 495821952, 1228822272, 5669754624, 5669754624, 5669754624, 5669754624, 5669754624, 5669754624, 69265877760, 132862000896

Offset

1,3

Links

Table of n, a(n) for n=1..26.

Andrzej Kozlowski Re: too many special linear matrices, Mathematica forum, 17 August 2006.

Mathematica

SL[n_, p_] := Module[{vars = Table[Unique[ a], {n^2}], iters, mat}, iters = Map[{#, 0, p - 1} &, vars]; mat = Partition[vars, n]; Reap[ Do[If[Det[mat, Modulus -> p] == 1, Sow[mat], Continue[]], Evaluate[Sequence @@ iters]]][[2, 1]]]
a0 = SL[2, 5];
M[n_] := a0[[1 + Mod[n, Length[a0]]]]
v[1] = {1, 1}
v[n_] := v[n] = M[n].v[n - 1]
a = Table[Floor[v[n][[1]]], {n, 1, 50}]

Crossrefs

Sequence in context: A230964 A075811 A302926 * A051224 A062818 A154079

Adjacent sequences: A121793 A121794 A121795 * A121797 A121798 A121799

Keyword

nonn,uned

Author

Roger L. Bagula, Aug 24 2006

Status

approved