A112048 Bisection of A112046.

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, 13, 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, 17, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2, 19, 2, 3, 2, 3, 2, 5, 2, 3, 2, 3, 2

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Formula

a(n) = A112046(2n).

Mathematica

a112046[n_]:=Block[{i=1}, While[JacobiSymbol[i, 2n + 1]==1, i++]; i]; Table[a112046[2n] , {n, 101}] (* Indranil Ghosh, May 24 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
def a(n): return a112046(2*n)
print([a(n) for n in range(1, 102)])  # Indranil Ghosh, May 24 2017

Crossrefs

Cf. A112046, A112047, A112053.

Sequence in context: A053669 A342309 A112047 * A060395 A016026 A086757

Adjacent sequences: A112045 A112046 A112047 * A112049 A112050 A112051

Keyword

nonn

Author

Antti Karttunen, Aug 27 2005

Status

approved