The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A373180

(Bold, blue-underlined text is an ; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A373180

a(n) = min{k : KroneckerSymbol(n, k) = 1} if n > 1 and k > 1, a(0) = 1, a(1) = 0.
(history; published version)

#12 by Peter Luschny at Mon May 27 07:28:07 EDT 2024

STATUS

editing

#11 by Peter Luschny at Mon May 27 07:28:01 EDT 2024

NAME

a(n) = min{k : KroneckerSymbol(n, k) = 1} if n > 0 and k > 1, a(0) = 1.

DATA

1, 2, 7, 4, 3, 4, 5, 2, 7, 2, 3, 4, 11, 3, 5, 2, 3, 2, 7, 3, 9, 4, 3, 2, 5, 2, 5, 4, 3, 4, 7, 2, 7, 2, 3, 4, 5, 3, 9, 2, 3, 2, 11, 3, 5, 4, 3, 2, 11, 2, 7, 4, 3, 4, 5, 2, 5, 2, 3, 4, 7, 3, 9, 2, 3, 2, 5, 3, 9, 4, 3, 2, 7, 2, 5, 4, 3, 4, 7, 2, 9, 2, 3, 4, 5, 3, 5

OFFSET

0,2

MAPLE

a := proc(n) if n = 0 then return 1 fi;

PROG

if n == 0: return 1

(PARI) a(n) = if (n==0, 1, my(k=2); while(kronecker(n, k)!=1, k++); k); \\ Michel Marcus, May 27 2024

STATUS

approved

#10 by Peter Luschny at Mon May 27 06:12:01 EDT 2024

STATUS

proposed

#9 by Michel Marcus at Mon May 27 01:52:38 EDT 2024

STATUS

editing

#8 by Michel Marcus at Mon May 27 01:52:34 EDT 2024

PROG

STATUS

proposed

#7 by Peter Luschny at Mon May 27 01:18:03 EDT 2024

STATUS

editing

#6 by Peter Luschny at Mon May 27 01:15:21 EDT 2024

COMMENTS

#5 by Peter Luschny at Mon May 27 01:00:35 EDT 2024

CROSSREFS

#4 by Peter Luschny at Mon May 27 00:56:00 EDT 2024

MAPLE

#3 by Peter Luschny at Mon May 27 00:51:02 EDT 2024

NAME

allocated for Peter Luschny

DATA

OFFSET

PROG

KEYWORD

allocated

AUTHOR

STATUS

approved