|
%I #4 Oct 15 2013 22:31:56
%S 1,2,4,4,7,5,10,8,10,8,15,9,18,12,14,14,23,13,26,16,20,18,31,17,29,21,
%T 27,21,38,18,41,27,31,27,35,23,48,30,36,28,53,25,56,34,38,36,61,31,57,
%U 35,47,39,68,34,56,40,52,44,75,33,78,48,54,50,66,38,85,51,63,43,90,44
%N a(n)=A000720(n)+A000010(n).
%t Table[EulerPhi[w]+PrimePi[w], {w, 1, 128}]
%Y Cf. A000010, A000005, A000720, A073757, A037228, A063070, A045763.
%K easy,nonn
%O 1,2
%A _Labos Elemer_, Apr 29 2003
|
