A307266 Row 8 of array in A059897.
8, 4, 24, 2, 40, 12, 56, 1, 72, 20, 88, 6, 104, 28, 120, 128, 136, 36, 152, 10, 168, 44, 184, 3, 200, 52, 216, 14, 232, 60, 248, 64, 264, 68, 280, 18, 296, 76, 312, 5, 328, 84, 344, 22, 360, 92, 376, 384, 392, 100, 408, 26, 424, 108, 440, 7, 456, 116, 472, 30, 488, 124, 504, 32
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, 8); \\ Michel Marcus, Apr 23 2019
Comments