login
A093861
a(n) = floor(composite(n)^(composite(n)/n)), composite(n) = A002808(n).
2
256, 216, 256, 140, 100, 144, 196, 160, 138, 181, 232, 206, 186, 232, 213, 199, 187, 178, 214, 256, 243, 232, 223, 216, 251, 243, 236, 272, 311, 301, 293, 332, 323, 315, 307, 301, 337, 330, 323, 317, 312, 346, 384, 376, 370, 364, 359, 394, 388, 382
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
Cf. A093862.
Sequence in context: A057066 A186482 A186474 * A248776 A223600 A217848
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Apr 19 2004
EXTENSIONS
More terms from Ryan Propper, Jul 30 2006
STATUS
approved