The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A080113 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A080113

Positions of A080115 in A000040.
(history; published version)

#9 by Alois P. Heinz at Tue Sep 20 08:39:41 EDT 2022

STATUS

reviewed

approved

#8 by Joerg Arndt at Tue Sep 20 02:57:23 EDT 2022

STATUS

proposed

reviewed

#7 by Michel Marcus at Tue Sep 20 02:56:06 EDT 2022

STATUS

editing

proposed

#6 by Michel Marcus at Tue Sep 20 02:56:01 EDT 2022

AUTHOR

Antti Karttunen , Feb 11 2003

STATUS

approved

editing

#5 by Bruno Berselli at Mon Mar 07 02:36:15 EST 2016

STATUS

proposed

approved

#4 by Jean-François Alcover at Mon Mar 07 02:26:03 EST 2016

STATUS

editing

proposed

#3 by Jean-François Alcover at Mon Mar 07 02:25:58 EST 2016

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

STATUS

approved

editing

#2 by Russ Cox at Sat Mar 31 14:02:12 EDT 2012

AUTHOR

_Antti Karttunen (my_firstname.my_surname(AT)iki.fi) _ Feb 11 2003

Discussion

Sat Mar 31

14:02

OEIS Server: https://oeis.org/edit/global/911

#1 by N. J. A. Sloane at Fri May 16 03:00:00 EDT 2003

NAME

Positions of A080115 in A000040.

DATA

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

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;

CROSSREFS

Complement of A080112. Characteristic function: A080111.

KEYWORD

nonn

AUTHOR

Antti Karttunen (my_firstname.my_surname(AT)iki.fi) Feb 11 2003

STATUS

approved