OFFSET
2,1
COMMENTS
Conjecture: No term is zero.
Conjecture is true: see A090525. - Robert Israel, Mar 02 2023
LINKS
Robert Israel, Table of n, a(n) for n = 2..386
FORMULA
a(n) = floor(n^n/A090525(n)). - Robert Israel, Mar 02 2023
MAPLE
f:= proc(n) local t, k, s;
t:= n^n;
for k from 2 do s:= floor(t/k); if isprime(s) then return s fi od
end proc:
map(f, [$2..100]); # Robert Israel, Mar 02 2023
MATHEMATICA
Do[p = n^n; i = 2; While[ !PrimeQ[Floor[p/i]], i++ ]; Print[Floor[p/i]], {n, 2, 30}] (* Ryan Propper, Aug 02 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
EXTENSIONS
More terms from Ryan Propper, Aug 02 2005
Offset corrected by Robert Israel, Mar 02 2023
STATUS
approved