OFFSET
0,2
COMMENTS
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..866 (* First 201 terms from T. D. Noe *)
EXAMPLE
a(3) = LCM {1, 5, 9, 13} = 585.
MATHEMATICA
Table[ Apply[ LCM, Join[{1}, Table[1 + 4i, {i, 0, n}]]], {n, 0, 19}]
nn=20; Table[LCM@@Take[4Range[0, nn-1]+1, n], {n, nn}] (* Harvey P. Dale, Jul 04 2011 *)
Table[LCM@@NestList[#+4&, 1, n], {n, 0, 20}] (* Harvey P. Dale, Nov 21 2016 *)
PROG
(Magma) k:=77; [Lcm([h: h in [1..j by 4]]): j in [1..k by 4]]; // Bruno Berselli, May 03 2011
(PARI) a(n)=lcm(vector(n, i, 4*n+1)) \\ Charles R Greathouse IV, Feb 09 2017
CROSSREFS
KEYWORD
easy,nice,nonn
AUTHOR
EXTENSIONS
Edited by Robert G. Wilson v, Aug 27 2002
a(16) corrected by T. D. Noe, Feb 08 2008
STATUS
approved