A121796 - OEIS

%I #14 Dec 26 2022 08:36:41

%S 1,1,6,22,224,88,984,2320,10896,79296,98064,811728,2506032,14823648,

%T 109131840,59294592,495821952,1228822272,5669754624,5669754624,

%U 5669754624,5669754624,5669754624,5669754624,69265877760,132862000896

%N This sequence needs a meaningful name.

%H Andrzej Kozlowski <a href="http://forums.wolfram.com/mathgroup/archive/2006/Aug/msg00440.html">Re: too many special linear matrices</a>, Mathematica forum, 17 August 2006.

%t 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]]]

%t a0 = SL[2, 5];

%t M[n_] := a0[[1 + Mod[n, Length[a0]]]]

%t v[1] = {1, 1}

%t v[n_] := v[n] = M[n].v[n - 1]

%t a = Table[Floor[v[n][[1]]], {n, 1, 50}]

%K nonn,uned

%O 1,3

%A _Roger L. Bagula_, Aug 24 2006