This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A112047 #12 May 07 2021 00:46:23 %S A112047 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, %T A112047 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, %U A112047 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 %N A112047 Bisection of A112046. %H A112047 Indranil Ghosh, <a href="/A112047/b112047.txt">Table of n, a(n) for n = 1..1000</a> %F A112047 a(n) = A112046(2n-1) %t A112047 a112046[n_]:=Block[{i=1},While[JacobiSymbol[i, 2n + 1]==1, i++]; i]; Table[a112046[2n - 1], {n, 102}] (* _Indranil Ghosh_, May 11 2017 *) %o A112047 (Python) %o A112047 from sympy import jacobi_symbol as J %o A112047 def a112046(n): %o A112047 i=1 %o A112047 while True: %o A112047 if J(i, 2*n + 1)!=1: return i %o A112047 else: i+=1 %o A112047 print([a112046(2*n - 1) for n in range(1, 103)]) # _Indranil Ghosh_, May 11 2017 %Y A112047 Cf. A112046, A112048, A112053. %K A112047 nonn %O A112047 1,1 %A A112047 _Antti Karttunen_, Aug 27 2005