%I #9 Sep 20 2022 08:39:41
%S 1,7,8,10,13,14,16,18,19,21,24,25,26,28,29,30,31,33,34,35,37,38,40,41,
%T 42,44,45,47,48,49,50,51,53,55,57,59,60,61,62,63,65,66,67,68,69,70,71,
%U 73,74,75,77,78,79,80,82,84,86,87,88,89,90,91,93,94,95,97,98,99,100,101
%N Positions of A080115 in A000040.
%p A080113 := proc(n) option remember; local i; if(1 = n) then RETURN(1); fi; i := A080113(n-1)+1; while(i > 0) do if(A080111(i) > 0) then RETURN(i); fi; i := i+1; od; end;
%t s[p_, u_] := Sum[JacobiSymbol[j, p], {j, 1, u}]; Join[{1}, Select[Range[ 100], !(p = Prime[#]; AllTrue[Range[(p - 1)/2], s[p, #] >= 0 &]) &]] (* _Jean-François Alcover_, Mar 07 2016 *)
%Y Complement of A080112. Characteristic function: A080111.
%K nonn
%O 1,2
%A _Antti Karttunen_, Feb 11 2003