OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
C. K. Caldwell, Carmichael number
C. K. Caldwell, Pseudoprimes
C. Rivera, Carmichael Numbers
EXAMPLE
MATHEMATICA
palinComps = Select[Range[2, 101100], PalindromeQ[#] && CompositeQ[#] &]; seqQ[n_] := PowerMod[n, 101100, 101101] == 1 && AllTrue[palinComps, PowerMod[n, #-1, #] != 1 &]; Select[Range[1336], seqQ] (* Amiram Eldar, Jan 30 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Patrick De Geest, Oct 15 2000
STATUS
approved