A080113 Positions of A080115 in A000040.

1, 7, 8, 10, 13, 14, 16, 18, 19, 21, 24, 25, 26, 28, 29, 30, 31, 33, 34, 35, 37, 38, 40, 41, 42, 44, 45, 47, 48, 49, 50, 51, 53, 55, 57, 59, 60, 61, 62, 63, 65, 66, 67, 68, 69, 70, 71, 73, 74, 75, 77, 78, 79, 80, 82, 84, 86, 87, 88, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100, 101

Offset

1,2

Links

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

Maple

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;

Mathematica

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 *)

Crossrefs

Complement of A080112. Characteristic function: A080111.

Sequence in context: A291668 A175222 A067529 * A243078 A048588 A141676

Adjacent sequences: A080110 A080111 A080112 * A080114 A080115 A080116

Keyword

nonn

Author

Antti Karttunen, Feb 11 2003

Status

approved