A319987 Fully multiplicative with a(p^e) = prime(p mod 8)^e.

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

Author

Antti Karttunen, Oct 06 2018

Keywords

• nonn
• mult

Comments

For all i, j: a(i) = a(j) => A319984(i) = A319984(j).

Links

• Antti Karttunen, Table of n, a(n) for n = 1..10000
• Antti Karttunen, Data supplement: n, a(n) computed for n = 1..100000

Crossrefs

Cf. A319984, A319985, A319986.

Programs

PARI

A319987(n) = { my(f=factor(n)); prod(i=1, #f~, (prime(f[i, 1]%8))^f[i, 2]); };