OFFSET
0,2
MAPLE
PF := n -> ifelse(n = 0, {}, NumberTheory:-PrimeFactors(n)):
T := (n, k) -> mul(PF(n) intersect PF(k)):
seq(mul(T(2*n+1, k), k = 0..2*n+1), n = 0..20);
MATHEMATICA
nn = 65; Do[Set[s[i], FactorInteger[i][[All, 1]]], {i, 0, nn}]; Table[Product[Times @@ Intersection[s[k], s[n]], {k, 0, n}], {n, 1, nn, 2}] (* Michael De Vlieger, Jul 11 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Jul 10 2024
STATUS
approved