Generate Periodic Sequences

Make periodic extensions to finite sequences using LinearRecurrence.

In[1]:=

LinearRecurrence[{0, 0, 1}, {a, b, c}, 9]

Out[1]=

In[2]:=

PeriodicTexture[l_, {m_, n_}] := 

 ArrayPlot[

  Partition[

   LinearRecurrence[Append[Table[0, {Length[l] - 1}], 1], l, m n], n],

   ColorRules -> 

   Table[Sort[l][[i]] -> Hue[i/(Length[l] + 1)], {i, Length[l]}]]

In[3]:=

GraphicsGrid[{{PeriodicTexture[

    Table[LiouvilleLambda[k], {k, 282}], {200, 200}], 

   PeriodicTexture[

    Table[LiouvilleLambda[k], {k, 88}], {200, 

     200}]}, {PeriodicTexture[

    Table[PrimeNu[k], {k, 260}], {200, 200}], 

   PeriodicTexture[Table[PrimeOmega[k], {k, 255}], {200, 200}]}}]

Out[3]=