%N Numbers n such that more than half the positive members of the sequence -k^2 + n*k - 1 are primes.
%C Numbers n such that more than half the terms in row n of the triangular array A059036 are prime.
%C All positive members of the sequence are prime for n = 1, 2, 4, 5, 9 and 21.
%C There are no more terms below 200000. - _Pontus von Brömssen_, Jul 06 2020
%e 7 is in the sequence because with g(k) = -k^2+7*k-1, the positive members of the sequence g(k) are 5=g(1), 9=g(2) and 11=g(3), and two out of the three (5 and 9) are prime.
%p filter:= n -> nops(select(isprime, [seq(n*x-x^2-1,x=1..n/2)])) > 1/2*floor(n/2):
%p select(filter, [$1..10000]);
%Y Cf. A059036.
%A _Robert Israel_, Jul 03 2020