The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A080112 Positions of A080114 in A000040. 5
 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 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

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified August 9 04:39 EDT 2020. Contains 336319 sequences. (Running on oeis4.)