%I #15 Nov 23 2023 13:16:33
%S 25,51,91,161,325,425,561,791,1105,1633,1921,2001,2465,2599,2651,2737,
%T 7345,8449,9361,10325,10465,10825,11285,12025,12291,13021,15457,17111,
%U 18193,18881,19307,20705,20833,21931,24081,24661,31521,32305,37925,38801,39059,40641
%N Odd composite integers m such that U(m)^2 == 1 (mod m) and V(m) == 7 (mod m), where U(m) and V(m) are the m-th generalized Lucas and Pell-Lucas numbers of parameters a=7 and b=-1, respectively.
%C For a,b integers, the following sequences are defined:
%C generalized Lucas sequences by U(n+2)=a*U(n+1)-b*U(n) and U(0)=0, U(1)=1,
%C generalized Pell-Lucas sequences by V(n+2)=a*V(n+1)-b*V(n) and V(0)=2, V(1)=a.
%C These satisfy the identities U(p)^2 == 1 and V(p)==a (mod p) for p prime and b=1,-1.
%C These numbers may be called weak generalized Lucas-Bruckner pseudoprimes of parameters a and b. The current sequence is defined for a=7 and b=-1.
%H D. Andrica and O. Bagdasar, <a href="https://repository.derby.ac.uk/item/92yqq/on-some-new-arithmetic-properties-of-the-generalized-lucas-sequences">On some new arithmetic properties of the generalized Lucas sequences</a>, preprint for Mediterr. J. Math. 18, 47 (2021).
%t Select[Range[3, 15000, 2], CompositeQ[#] && Divisible[Fibonacci[#, 7]*Fibonacci[#, 7] - 1, #] && Divisible[LucasL[#, 7] - 7, #] &]
%Y Cf. A337625 (a=1), A337626 (a=3), A337627 (a=4), A337628 (a=5), A337629 (a=6).
%K nonn
%O 1,1
%A _Ovidiu Bagdasar_, Sep 19 2020
%E More terms from _Amiram Eldar_, Sep 19 2020
|