%I #6 Nov 17 2018 23:53:50
%S 256,216,256,140,100,144,196,160,138,181,232,206,186,232,213,199,187,
%T 178,214,256,243,232,223,216,251,243,236,272,311,301,293,332,323,315,
%U 307,301,337,330,323,317,312,346,384,376,370,364,359,394,388,382
%N a(n) = floor(composite(n)^(composite(n)/n)), composite(n) = A002808(n).
%e a(7) = 14^(14/7) = 196;
%e a(8) = floor(15^(15/8)) = 160;
%e a(74) = floor(100^(100/74)) = 504.
%t Composite[n_] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[Floor[Composite[n]^(Composite[n]/n)], {n, 50}] (* _Ryan Propper_, Jul 30 2006 *)
%Y Cf. A093862.
%K nonn
%O 1,1
%A _Amarnath Murthy_, Apr 19 2004
%E More terms from _Ryan Propper_, Jul 30 2006