OFFSET
2,1
COMMENTS
Conjecture: No term is zero.
The conjecture is true: If p is a prime factor of n, k = (n^n)/p gives an upper bound. - James Rayman, Mar 01 2023
LINKS
Robert Israel, Table of n, a(n) for n = 2..577
MAPLE
f:= proc(n) local t, k;
t:= n^n;
for k from 2 do if isprime(floor(t/k)) then return k fi od
end proc:
map(f, [$2..100]); # Robert Israel, Mar 02 2023
MATHEMATICA
lnk[n_]:=Module[{k=1, nn=n^n}, While[!PrimeQ[Floor[nn/k]], k++]; k]; Array[lnk, 70, 2] (* Harvey P. Dale, Nov 07 2022 *)
PROG
(PARI) a(n)=for(i=1, 1000, if(isprime(floor((n^n)/i)), print1(i, ", "); break()))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, Dec 07 2003
STATUS
approved