OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[ 2*Range[100000]-1, !PrimeQ[ # ] && Mod[ PowerMod[3, (#+1)/2, # ] - PowerMod[2, (#+1)/2, # ] - 1, # ] == 0 & ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Alexander Adamchuk, May 05 2007
EXTENSIONS
More terms from Ryan Propper, Jan 07 2008
STATUS
approved