It must of course be:
.... and yet another one
> Remove[degradation]
>
> (degradation[#][t_] := kdegrad[#]*concentration[#][t]) & /@ Range[10];
>
> Information["degradation", LongForm -> False]
>
> SubValues[degradation]
>
(# has to replace any occurance of i)
> Kind regards,
> Hartmut