OFFSET
1,1
MATHEMATICA
FactorInteger[#][[-1, 1]]&/@LinearRecurrence[{0, 1, 0, 1}, {2, 3, 5, 2}, 60] (* Harvey P. Dale, Jul 07 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Giovanni Teofilatto, Apr 11 2010
EXTENSIONS
More terms from R. J. Mathar, Aug 23 2010
STATUS
approved