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

 

Logo


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

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

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.

License Agreements, Terms of Use, Privacy Policy. .

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