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 A339128 #10 Dec 07 2020 18:22:36 %S A339128 9,25,49,51,91,121,125,153,169,289,325,361,441,529,625,637,833,841, %T A339128 867,961,1183,1225,1369,1633,1681,1849,1921,2209,2599,2601,2651,3481, %U A339128 3721,4225,4489,4625,5041,5125,5329,5537,6241,6889,7225,7267,7497,7921,8125,8281 %N A339128 Odd composite integers m such that A086902(m-J(m,53)) == 2*J(m,53) (mod m), where J(m,53) is the Jacobi symbol. %C A339128 The generalized Pell-Lucas sequences of integer parameters (a,b) defined by V(m+2)=a*V(m+1)-b*V(m) and V(0)=2, V(1)=a, satisfy the identity %C A339128 V(p-J(p,D)) == 2*J(p,D) (mod p) when p is prime, b=-1 and D=a^2+4. %C A339128 This sequence has the odd composite integers with V(m-J(m,D)) == 2*J(m,D) (mod m). %C A339128 For a=7 and b=-1, we have D=53 and V(m) recovers A086902(m). %D A339128 D. Andrica, O. Bagdasar, Recurrent Sequences: Key Results, Applications and Problems. Springer, 2020. %D A339128 D. Andrica, O. Bagdasar, On some new arithmetic properties of the generalized Lucas sequences, Mediterr. J. Math. (to appear, 2021) %D A339128 D. Andrica, O. Bagdasar, On generalized pseudoprimality of level k (submitted) %t A339128 Select[Range[3, 10000, 2], CompositeQ[#] && Divisible[LucasL[# - (j = JacobiSymbol[#, 53]), 7] - 2*j, #] &] (* _Amiram Eldar_, Nov 26 2020 *) %Y A339128 Cf. A086902. %Y A339128 Cf. A339125 (a=1, b=-1), A339126 (a=3, b=-1), A339127 (a=5, b=-1), A339129 (a=3, b=1), A339130 (a=5, b=1), A339131 (a=7, b=1). %K A339128 nonn %O A339128 1,1 %A A339128 _Ovidiu Bagdasar_, Nov 24 2020 %E A339128 More terms from _Amiram Eldar_, Nov 26 2020