A307267 Row 24 of array in A059897.
24, 12, 8, 6, 120, 4, 168, 3, 216, 60, 264, 2, 312, 84, 40, 384, 408, 108, 456, 30, 56, 132, 552, 1, 600, 156, 72, 42, 696, 20, 744, 192, 88, 204, 840, 54, 888, 228, 104, 15, 984, 28, 1032, 66, 1080, 276, 1128, 128, 1176, 300, 136, 78, 1272, 36, 1320, 21, 152, 348, 1416, 10
Offset: 1
Keywords
Links
Programs
-
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, 24); \\ Michel Marcus, Apr 23 2019
Comments