link genrfncs

procedure p1k(k)
   local i, a, b, c, x

   case k % 3 of {
      0  :  {
         i := k / 3			# limit
         every a := lrrcseq([3, 13], [4, 1]) \ i
         every b := lrrcseq([1, 6, 27], [5, -3, -1]) \ i
         every x := lrrcseq([1, 6, 27], [5, -3, -1]) \ (i - 1)
         /x := 0			# first term
         every c := lrrcseq([4,16], [4, 1]) \ i
         }
      1  :  {
         i := k / 3 + 1		# limit
         every a := lrrcseq([1, 5], [4, 1]) \ i
         every b := lrrcseq([0, 2, 10], [5, -3, -1]) \ i
         every x := lrrcseq([0, 2, 10], [5, -3, -1]) \ (i - 1)
         /x := 0			# first term
         every c := lrrcseq([2, 6], [4, 1]) \ i
         }
      2  :  fail
      }
  
   write("n=", a, "*i-", b, "\tm=", c, "*i-", b + x)

   return

end