OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
a(50) = a(2^1 * 3^0 * 5^2)
= 2^xor(1,0,2) * 3^xor(0,2) * 5^xor(2)
= 2^3 * 3^2 * 5^2
= 1800.
PROG
(Perl) See link.
(Haskell)
import Data.Bits (xor)
a226532 n = product $ zipWith (^)
a000040_list (scanr1 xor $ a067255_row n :: [Integer])
-- Reinhard Zumkeller, Jun 11 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Tek, Jun 10 2013
STATUS
approved