|
%I #9 Jul 26 2014 10:29:22
%S 5,7,10,11,47,15,11,14,91,23,87,27,95,123,20,35,94,39,171,127,183,47,
%T 95,22,187,15,175,59,763,63,21,247,355,191,174,75,359,251,187,83,767,
%U 87,343,235,367,95,167,30,182,483,347,107,95,375,191,487,379,119
%N Like A067599 but write everything in binary, then display the answer in base 10.
%H Chai Wah Wu, <a href="/A245270/b245270.txt">Table of n, a(n) for n = 2..10000</a>
%e 24 = 2^3 * 3^1 has binary encoding 10_11_11_1, that is, 95 in decimal.
%o (Python)
%o import sympy
%o [int(''.join([bin(y)[2:] for x in sorted(sympy.ntheory.factorint(n).items()) for y in x]),2) for n in range(2,200)] # compute a(n) for n > 1
%o # _Chai Wah Wu_, Jul 15 2014
%o (PARI) a(n) = {f = factor(n); s = []; for (i=1, #f~, s = concat(s, binary(f[i, 1])); s = concat(s, binary(f[i, 2]));); subst(Pol(s), x, 2);} \\ _Michel Marcus_, Jul 16 2014
%Y Cf. A067599, A230625.
%K nonn,base
%O 2,1
%A _Chai Wah Wu_, Jul 15 2014
|
