A319985 Fully multiplicative with a(p^e) = prime(p mod 12)^e.

1, 3, 5, 9, 11, 15, 17, 27, 25, 33, 31, 45, 2, 51, 55, 81, 11, 75, 17, 99, 85, 93, 31, 135, 121, 6, 125, 153, 11, 165, 17, 243, 155, 33, 187, 225, 2, 51, 10, 297, 11, 255, 17, 279, 275, 93, 31, 405, 289, 363, 55, 18, 11, 375, 341, 459, 85, 33, 31, 495, 2, 51, 425, 729, 22, 465, 17, 99, 155, 561, 31, 675, 2, 6, 605, 153, 527, 30, 17

Offset: 1

Author

Antti Karttunen, Oct 06 2018

Keywords

• nonn
• mult

Comments

For all i, j:

a(i) = a(j) => A319984(i) = A319984(j).

a(i) = a(j) => A319986(i) = A319986(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, A319986, A319987.

Programs

PARI

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