|
%I #10 Oct 08 2018 08:08:48
%S 1,3,5,9,11,15,17,27,25,33,31,45,2,51,55,81,11,75,17,99,85,93,31,135,
%T 121,6,125,153,11,165,17,243,155,33,187,225,2,51,10,297,11,255,17,279,
%U 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
%N Fully multiplicative with a(p^e) = prime(p mod 12)^e.
%C For all i, j:
%C a(i) = a(j) => A319984(i) = A319984(j).
%C a(i) = a(j) => A319986(i) = A319986(j).
%H Antti Karttunen, <a href="/A319985/b319985.txt">Table of n, a(n) for n = 1..10000</a>
%H Antti Karttunen, <a href="/A319985/a319985.txt">Data supplement: n, a(n) computed for n = 1..100000</a>
%o (PARI) A319985(n) = { my(f=factor(n)); prod(i=1, #f~, (prime(f[i, 1]%12))^f[i, 2]); };
%Y Cf. A319984, A319986, A319987.
%K nonn,mult
%O 1,2
%A _Antti Karttunen_, Oct 06 2018
|
