OFFSET
1,1
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 (first 201 terms from R. J. Mathar)
J. Bernheiden, Pseudoprimes (Text in German)
MATHEMATICA
Select[ Range[228240], !PrimeQ[ # ] && PowerMod[2, # - 1, # ] == 1 && PowerMod[3, # - 1, # ] == 1 &]
PROG
(PARI) is(n)=!isprime(n)&&Mod(2, n)^(n-1)==1&&Mod(3, n)^(n-1)==1 \\ Charles R Greathouse IV, Apr 12 2012
CROSSREFS
KEYWORD
nice,nonn
AUTHOR
Harvey P. Dale, Jan 24 2000
STATUS
approved