OFFSET
1,4
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..200
FORMULA
EXAMPLE
a(4) = 1*3 = 3.
a(5) = 1*3 = 3.
a(15) = 1*7*11*13 = 1001.
MATHEMATICA
Table[Times @@ Select[Range[1, n, 2], GCD[n, #] == 1 &], {n, 40}] (* T. D. Noe, Mar 12 2012 *)
PROG
(PARI) a(n) = prod(k=1, n, if (k % 2, k, 1)); \\ Michel Marcus, Mar 12 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Mar 10 2012
STATUS
approved
