OFFSET
1,1
MATHEMATICA
Select[ 2Range[250], OddQ[ PowerMod[2, #, #-1]] &] (* Robert G. Wilson v, Oct 10 2005 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Paul Barry, Oct 08 2005
EXTENSIONS
More terms from Robert G. Wilson v, Oct 10 2005
STATUS
approved