OFFSET
1,2
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..6561
PROG
(PARI)
A019565(n) = {my(j, v); factorback(Mat(vector(if(n, #n=vecextract(binary(n), "-1..1")), j, [prime(j), n[j]])~))}; \\ This function from M. F. Hasler
A289813(n) = { my (d=digits(n, 3)); fromdigits(vector(#d, i, if (d[i]==1, 1, 0)), 2); } \\ From _Remy Sigrist_
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Oct 03 2017
STATUS
approved