|
%I #10 Aug 06 2018 22:26:38
%S 0,0,0,0,0,6,0,0,0,10,0,12,0,14,15,0,0,18,0,20,21,22,0,24,0,26,0,28,0,
%T 30,0,0,33,34,35,36,0,38,39,40,0,42,0,44,45,46,0,48,0,50,51,52,0,54,
%U 55,56,57,58,0,60,0,62,63,0,65,66,0,68,69,70,0,72,0,74,75,76,77,78,0,80,0
%N If n is a prime power then 0 else n.
%H Antti Karttunen, <a href="/A074591/b074591.txt">Table of n, a(n) for n = 1..65537</a>
%F a(n) = n*(1 - A010055(n)).
%t Table[If[Length[FactorInteger[n]]==1,0,n],{n,100}] (* _Harvey P. Dale_, Feb 14 2016 *)
%o (PARI) A074591(n) = if(omega(n)<=1,0,n); \\ _Antti Karttunen_, Aug 06 2018
%Y Cf. A000961, A010055, A024619, A305976.
%K nonn
%O 1,6
%A _Reinhard Zumkeller_, Aug 25 2002
|
