

A005845


Lucas pseudoprimes: n  (L_n  1), where n is composite and L_n = Lucas numbers A000032.
(Formerly M5469)


12



705, 2465, 2737, 3745, 4181, 5777, 6721, 10877, 13201, 15251, 24465, 29281, 34561, 35785, 51841, 54705, 64079, 64681, 67861, 68251, 75077, 80189, 90061, 96049, 97921, 100065, 100127, 105281, 113573, 118441, 146611, 161027
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

This uses the definition of "Lucas pseudoprime" by Bruckman, not the one by Baillie and Wagstaff.  R. J. Mathar, Jul 15 2012
When these pseudoprimes are subjected to a Fermat based primality test (b^(a(n)1) mod a(n) = 1), only a(2) = 2465 passes for b = 2 or 3 and only 68251 passes for b = 5.  Gary Detlefs, Feb 26 2013


REFERENCES

P. Ribenboim, The Book of Prime Number Records. SpringerVerlag, NY, 2nd ed., 1989, p. 104.
N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).


LINKS

T. D. Noe, Table of n, a(n) for n = 1..1000
R. Baillie and S. S. Wagstaff,Lucas pseudoprimes, Math. Comp 35 (1980) 13911417
P. S. Bruckman, Lucas Pseudoprimes are odd, Fib. Quart. 32 (1994), 155157.
Eric Weisstein's World of Mathematics, Lucas Pseudoprime.
Index entries for sequences related to pseudoprimes


MATHEMATICA

Select[Range[2, 170000], !PrimeQ[#]&&Divisible[LucasL[#]1, #]&] (* Harvey P. Dale, Mar 08 2014 *)


PROG

(PARI) is(n)=my(M=Mod([1, 1; 1, 0], n)^n); M[1, 1]+M[2, 2]==1&&!isprime(n)&&n>1 \\ Charles R Greathouse IV, Dec 27 2013
(Haskell)
a005845 n = a005845_list !! (n1)
a005845_list = filter (\x > (a000032 x  1) `mod` x == 0) a002808_list
 Reinhard Zumkeller, Nov 13 2014


CROSSREFS

Cf. A000032, A002808.
Sequence in context: A091553 A224491 A126830 * A183795 A074869 A212476
Adjacent sequences: A005842 A005843 A005844 * A005846 A005847 A005848


KEYWORD

nonn,nice,changed


AUTHOR

N. J. A. Sloane.


EXTENSIONS

More terms from David Broadhurst.


STATUS

approved



