# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a080113
Showing 1-1 of 1

%I A080113 #9 Sep 20 2022 08:39:41
%S A080113 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 A080113 42,44,45,47,48,49,50,51,53,55,57,59,60,61,62,63,65,66,67,68,69,70,71,
%U A080113 73,74,75,77,78,79,80,82,84,86,87,88,89,90,91,93,94,95,97,98,99,100,101
%N A080113 Positions of A080115 in A000040.
%p A080113 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 A080113 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 A080113 Complement of A080112. Characteristic function: A080111.
%K A080113 nonn
%O A080113 1,2
%A A080113 _Antti Karttunen_, Feb 11 2003

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE