OFFSET
1,1
EXAMPLE
a(7) = 14^(14/7) = 196;
a(8) = floor(15^(15/8)) = 160;
a(74) = floor(100^(100/74)) = 504.
MATHEMATICA
Composite[n_] := FixedPoint[n + PrimePi[ # ] + 1 &, n + PrimePi[n] + 1]; Table[Floor[Composite[n]^(Composite[n]/n)], {n, 50}] (* Ryan Propper, Jul 30 2006 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 19 2004
EXTENSIONS
More terms from Ryan Propper, Jul 30 2006
STATUS
approved