|
%I #20 Jul 04 2017 20:41:53
%S 0,1,1,1,1,1,3,1,1,1,1,5,1,11,1,1,13,5,1,1,1,3,5,1,3,1,5,1,7,1,1,5,5,
%T 3,1,5,7,1,1,3,1,5,3,1,1,1,5,1,3,1,5,3,1,1,1,1,5,9,1,1,3,17,5,1,1,1,7,
%U 1,13,1,5,19,3,19,7,1,19,11,3,7,5,3,1,11,1
%N Least number k such that n^2 + n - k is prime.
%C a(A045546(n)) = 1.
%H Robert Israel, <a href="/A289357/b289357.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A049711(A002378(n)). - _Robert Israel_, Jul 03 2017
%p 0, seq(n^2 + n - prevprime(n^2+n), n=2..100); # _Robert Israel_, Jul 03 2017
%t Table[k = 0; While[! PrimeQ[n^2 + n - k], k++]; k, {n, 85}] (* _Michael De Vlieger_, Jul 04 2017 *)
%o (PARI) for(n=1,85,k={my(k=0);while(!isprime(n^2+n-k),k++);k;};print1(k", "))
%Y Cf. A002378, A045546, A049711, A161550 (resulting primes).
%K nonn
%O 1,7
%A _Gionata Neri_, Jul 03 2017
|
