OFFSET
1,1
COMMENTS
LINKS
FORMULA
PROG
(PARI) T(n, k) = {if (n==1, return (k)); if (k==1, return (n)); my(fn=factor(n), fk=factor(k)); vp = setunion(fn[, 1]~, fk[, 1]~); prod(i=1, #vp, vp[i]^(bitxor(valuation(n, vp[i]), valuation(k, vp[i])))); }
a(n) = T(n, 8); \\ Michel Marcus, Apr 23 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Munn, Apr 01 2019
STATUS
approved