login
A319987
Fully multiplicative with a(p^e) = prime(p mod 8)^e.
5
1, 3, 5, 9, 11, 15, 17, 27, 25, 33, 5, 45, 11, 51, 55, 81, 2, 75, 5, 99, 85, 15, 17, 135, 121, 33, 125, 153, 11, 165, 17, 243, 25, 6, 187, 225, 11, 15, 55, 297, 2, 255, 5, 45, 275, 51, 17, 405, 289, 363, 10, 99, 11, 375, 55, 459, 25, 33, 5, 495, 11, 51, 425, 729, 121, 75, 5, 18, 85, 561, 17, 675, 2, 33, 605, 45, 85, 165, 17, 891, 625, 6, 5
OFFSET
1,2
COMMENTS
For all i, j: a(i) = a(j) => A319984(i) = A319984(j).
PROG
(PARI) A319987(n) = { my(f=factor(n)); prod(i=1, #f~, (prime(f[i, 1]%8))^f[i, 2]); };
CROSSREFS
KEYWORD
nonn,mult
AUTHOR
Antti Karttunen, Oct 06 2018
STATUS
approved