|
%I #15 Mar 20 2023 16:06:52
%S 2,2,11,9,11,20,10,42,13,16,57,7,35,41,53,35,171,18,141,45,19,55,212,
%T 236,94,265,13,76,26,9,13,21,160,21,21,24,378,100,66,52,75,54,214,6,
%U 678,193,137,123,138,59,605,87,165,109,417,403,100,57,778,719,79,12,83,450
%N Least number k such that floor((n^n)/k) is prime, or 0 if no such number exists.
%C Conjecture: No term is zero.
%C 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
%H Robert Israel, <a href="/A090525/b090525.txt">Table of n, a(n) for n = 2..577</a>
%p f:= proc(n) local t,k;
%p t:= n^n;
%p for k from 2 do if isprime(floor(t/k)) then return k fi od
%p end proc:
%p map(f, [$2..100]); # _Robert Israel_, Mar 02 2023
%t 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 *)
%o (PARI) a(n)=for(i=1,1000,if(isprime(floor((n^n)/i)),print1(i,",");break()))
%Y Cf. A090526, A090527, A090528.
%K nonn
%O 2,1
%A _Amarnath Murthy_, Dec 07 2003
|
