|
| |
|
|
A053761
|
|
Least positive integer k for which the Jacobi symbol (k|2*n-1) is less than 1, where 2*n-1 is a nonsquare; a(n)=0 if 2*n-1 is a square.
|
|
1
| |
|
|
0, 2, 2, 3, 0, 2, 2, 3, 3, 2, 2, 5, 0, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 5, 0, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 7, 5, 2, 2, 3, 0, 2, 2, 3, 3, 2, 2, 5, 5, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 7, 0, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 5, 5, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 5, 0, 2, 2, 3, 3, 2, 2, 3, 3, 2, 2, 7, 5, 2, 2, 3
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,2
|
|
|
REFERENCES
| R. Baillie and S. S. Wagstaff, Lucas pseudoprimes, Math. Comp. 35 (1980) 1391-1417; Math. Rev. 81j:10005.
S. R. Finch, Mathematical Constants, Cambridge, 2003, pp. 443-448.
P. Ribenboim, The New Book of Prime Number Records, 3rd ed., Spinger-Verlag 1996; Math. Rev. 96k:11112.
|
|
|
LINKS
| S. R. Finch, Quadratic Residues
|
|
|
MAPLE
| A053761 := proc(n) if issqr(2*n-1) then return 0 ; else for k from 1 do if numtheory[jacobi](k, 2*n-1) < 1 then return k; end if; end do: end if; end proc: seq(A053761(n), n=1..100) ; [From R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 08 2010]
|
|
|
CROSSREFS
| Sequence in context: A071479 A182631 A091426 * A138067 A125093 A103516
Adjacent sequences: A053758 A053759 A053760 * A053762 A053763 A053764
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| S. R. Finch (Steven.Finch(AT)inria.fr), Apr 05 2000
|
|
|
EXTENSIONS
| More terms from R. J. Mathar (mathar(AT)strw.leidenuniv.nl), Aug 08 2010
|
| |
|
|
