A339730 Odd composite integers m such that A056854(3*m-J(m,45)) == 47 (mod m) and gcd(m,45)=1, where J(m,45) is the Jacobi symbol.
49, 161, 287, 323, 329, 341, 377, 451, 671, 737, 901, 1007, 1079, 1081, 1127, 1271, 1363, 1541, 1819, 1853, 1891, 1927, 2033, 2071, 2303, 2407, 2431, 2461, 2501, 2567, 2743, 3653, 3827, 4181, 4843, 5029, 5243, 5473, 5611, 5671, 5777, 6119, 6593, 6601, 6721, 6923
Offset: 1
Keywords
References
- D. Andrica, O. Bagdasar, Recurrent Sequences: Key Results, Applications and Problems. Springer, 2020.
- D. Andrica, O. Bagdasar, On some new arithmetic properties of the generalized Lucas sequences, Mediterr. J. Math. (to appear, 2021).
- D. Andrica, O. Bagdasar, On generalized pseudoprimality of level k (submitted).
Links
- Amiram Eldar, Table of n, a(n) for n = 1..1000
- Dorin Andrica, Vlad Crişan, and Fawzi Al-Thukair, On Fibonacci and Lucas sequences modulo a prime and primality testing, Arab Journal of Mathematical Sciences, 2018, 24(1), 9--15.
Crossrefs
Programs
-
Mathematica
Select[Range[3, 7000, 2], CoprimeQ[#, 45] && CompositeQ[#] && Divisible[LucasL[4*(3*# - JacobiSymbol[#, 45])] - 47, #] &]
Comments