|
|
|
|
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.
Sequence in context: A286421 A116546 A108957 * A123924 A252484 A036023
Adjacent sequences: A080109 A080110 A080111 * A080113 A080114 A080115
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Antti Karttunen Feb 11 2003
|
|
STATUS
|
approved
|
|
|
|