login
A121796
This sequence needs a meaningful name.
0
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
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
KEYWORD
nonn,uned
AUTHOR
Roger L. Bagula, Aug 24 2006
STATUS
approved