|
%I #8 Dec 27 2018 17:35:55
%S 0,1,1,1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,2,2,1,1,1,1,2,2,2,1,1,1,1,2,2,2,
%T 2,1,2,2,1,1,1,1,2,1,1,1,2,1,1,3,2,1,1,2,1,3,2,1,1,1,2,2,2,2,1,1,3,3,
%U 1,1,1,1,2,2,3,2,2,1,1,1,2,1,2,2,2,2,1,1,1,2,3,3,3,3,1,1,1,2,2,1,1,1,2,2
%N a(n) = A001221(A048675(n)).
%H Antti Karttunen, <a href="/A322812/b322812.txt">Table of n, a(n) for n = 2..10000</a>
%F a(n) = A001221(A048675(n)).
%F a(n) <= A277892(n).
%o (PARI)
%o A048675(n) = my(f = factor(n)); sum(k=1, #f~, f[k, 2]*2^primepi(f[k, 1]))/2; \\ From A048675
%o A322812(n) = omega(A048675(n));
%Y Cf. A001221, A048675, A277892, A322811, A322815, A322816.
%K nonn
%O 2,14
%A _Antti Karttunen_, Dec 27 2018
|
