%I A050217
%S A050217 341,1387,2047,2701,3277,4033,4369,4681,5461,7957,8321,10261,13747,
%T A050217 14491,15709,18721,19951,23377,31417,31609,31621,35333,42799,49141,
%U A050217 49981,60701,60787,65077,65281,80581,83333,85489,88357,90751
%N A050217 Super-Poulet numbers: numbers whose divisors d all satisfy d|2^d-2.
%H A050217 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/
               Super-PouletNumber.html">Super-Poulet Numbers</a>
%H A050217 Wikipedia, <a href="http://en.wikipedia.org/wiki/Super-Poulet_number">
               Super-Poulet number</a>
%t A050217 Select[ Range[ 110000], !PrimeQ[ # ] && OddQ[ # ] && Union[PowerMod[2, 
               Drop[ Divisors[ # ], 1], # ]] == {2} & ]
%Y A050217 Sequence in context: A083876 A068216 A038473 this_sequence A086837 A020230 
               A087716
%Y A050217 Adjacent sequences: A050214 A050215 A050216 this_sequence A050218 A050219 
               A050220
%K A050217 nonn
%O A050217 1,1
%A A050217 Eric Weisstein (eric(AT)weisstein.com)