A112047 Bisection of A112046.

2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 11, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 7, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5

Offset

1,1

Links

Indranil Ghosh, Table of n, a(n) for n = 1..1000

Formula

a(n) = A112046(2n-1)

Mathematica

a112046[n_]:=Block[{i=1}, While[JacobiSymbol[i, 2n + 1]==1, i++]; i]; Table[a112046[2n - 1], {n, 102}] (* Indranil Ghosh, May 11 2017 *)

Prog

(Python)
from sympy import jacobi_symbol as J
def a112046(n):
    i=1
    while True:
        if J(i, 2*n + 1)!=1: return i
        else: i+=1
print([a112046(2*n - 1) for n in range(1, 103)]) # Indranil Ghosh, May 11 2017

Crossrefs

Cf. A112046, A112048, A112053.

Sequence in context: A236454 A053669 A342309 * A112048 A060395 A016026

Adjacent sequences: A112044 A112045 A112046 * A112048 A112049 A112050

Keyword

nonn

Author

Antti Karttunen, Aug 27 2005

Status

approved