1,1

Eric Weisstein's World of Mathematics, Super-Poulet Numbers

Wikipedia, Super-Poulet number

Select[ Range[ 110000], !PrimeQ[ # ] && OddQ[ # ] && Union[PowerMod[2, Drop[ Divisors[ # ], 1], # ]] == {2} & ]

Sequence in context: A083876 A068216 A038473 this_sequence A086837 A020230 A087716

Adjacent sequences: A050214 A050215 A050216 this_sequence A050218 A050219 A050220

nonn

Eric Weisstein (eric(AT)weisstein.com)