A080112 Positions of A080114 in A000040.

2, 3, 4, 5, 6, 9, 11, 12, 15, 17, 20, 22, 23, 27, 32, 36, 39, 43, 46, 52, 54, 56, 58, 64, 72, 76, 81, 83, 85, 92, 96, 103, 109, 111, 118, 120, 128, 132, 133, 146, 150, 154, 156, 157, 164, 166, 167, 173, 175, 179, 182, 185, 190, 200, 202, 207, 215, 222, 225, 228, 229

Offset

1,1

Links

Table of n, a(n) for n=1..61.

Maple

A080112 := proc(n) option remember; local i; if(1 = n) then RETURN(2); fi; i := A080112(n-1)+1; while(i > 0) do if(A080110(i) > 0) then RETURN(i); fi; i := i+1; od; end;

Mathematica

s[p_, u_] := Sum[JacobiSymbol[j, p], {j, 1, u}]; Select[Range[2, 300], (p = Prime[#]; AllTrue[Range[(p - 1)/2], s[p, #] >= 0 &]) &] (* Jean-François Alcover, Mar 07 2016 *)

Prog

(Sage)
@CachedFunction
def A080112(n) :
     if 1 == n : return 2
     i = A080112(n-1) + 1
     while i > 0 :
         if A080110(i) > 0 : return i
         i += 1
[A080112(n) for n in (1..61)] # Peter Luschny, Aug 09 2012

Crossrefs

Complement of A080113. Characteristic function: A080110.

Sequence in context: A286421 A116546 A108957 * A123924 A360011 A252484

Adjacent sequences: A080109 A080110 A080111 * A080113 A080114 A080115

Keyword

nonn

Author

Antti Karttunen, Feb 11 2003

Status

approved