proposed
approved
proposed
approved
editing
proposed
A019565(n) = {factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from __M. F. Hasler_
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
for(n=0, 478, write("b064273.txt", n, " ", A064273(n))); \\ From __Antti Karttunen_, Aug 23 2014
approved
editing
proposed
approved
editing
proposed