OFFSET
1,1
COMMENTS
Conjecture: No term is zero.
MATHEMATICA
Do[p = n^n; i = 1; While[ !ProvablePrimeQ[Floor[p/Prime[i]]], i++ ]; Print[Floor[p/Prime[i]]], {n, 2, 50}] (* Ryan Propper, Aug 02 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
EXTENSIONS
More terms from Ryan Propper, Aug 02 2005
STATUS
approved