A319986 - OEIS

%I #11 Oct 08 2018 08:08:55

%S 1,3,5,9,11,15,2,27,25,33,11,45,2,6,55,81,11,75,2,99,10,33,11,135,121,

%T 6,125,18,11,165,2,243,55,33,22,225,2,6,10,297,11,30,2,99,275,33,11,

%U 405,4,363,55,18,11,375,121,54,10,33,11,495,2,6,50,729,22,165,2,99,55,66,11,675,2,6,605,18,22,30,2,891,625,33,11,90,121,6

%N Fully multiplicative with a(p^e) = prime(p mod 6)^e.

%C For all i, j:

%C   A319716(i) = A319716(j) => a(i) = a(j) => A319690(i) = A319690(j).

%H Antti Karttunen, <a href="/A319986/b319986.txt">Table of n, a(n) for n = 1..10000</a>

%H Antti Karttunen, <a href="/A319986/a319986.txt">Data supplement: n, a(n) computed for n = 1..100000</a>

%o (PARI) A319986(n) = { my(f=factor(n)); prod(i=1, #f~, (prime(f[i, 1]%6))^f[i, 2]); };

%Y Cf. A319690, A319716, A319984, A319985, A319987, A320116, A320117.

%K nonn,mult

%O 1,2

%A _Antti Karttunen_, Oct 06 2018