link genrfncs

procedure p2k(k)
   local a, c

   every a := lrrcseq([1, 5, 6, 29], [0, 6, 0, -1]) \ k

   every c := lrrcseq([1, 4, 5, 24], [0, 6, 0, -1]) \ k

   write("n=", a, "*i+1\tm=", c, "*i+1")

   return

end