%I #4 Oct 15 2013 22:32:32
%S 3,7,12,31,42,124,224,511,847,1953,2688,12264,18816,29127,72540,
%T 131071,195048,558523,1077440,3164112,4552020,10890040,10342080,
%U 54525848,73260781,155671040,318848400,1080311232,964580240,3070642080
%N a(n)=A062402[1+2^n].
%t Table[DivisorSigma[1, EulerPhi[1+2^w]], {w, 1, 30}]
%Y Cf. A062401, A062402, A053287, A096853-A096855.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 19 2004
|