A080112 - OEIS

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

(list; graph; refs; listen; history; text; internal format)

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.