This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A241973 #30 May 21 2014 00:05:58 %S A241973 11,23,83,37,29,131,179,191,43,73,239,251,359,419,431,443,491,659,683, %T A241973 233,719,743,911,1019,1031,1103,47,397,1223,79,461,1439,1451,1499, %U A241973 1511,1559,1583,557,113,577,601,1811,1931,2003,2039,2063,761,2339,2351,2399 %N A241973 Prime exponents of composite Mersenne numbers in the order of the magnitude of the smallest prime factor. %C A241973 Terms are the same as A054723, but in a different order. %C A241973 If p is a prime and 2^p-1 is composite, each prime factor of 2^p-1 will be of the form kp+1 for some integer k. Thus, the smallest prime factor of 2^p-1 cannot be smaller than p. %C A241973 The corresponding smallest prime factors are: 23, 47, 167, 223, 233, 263, 359, 383, 431, 439, 479, 503, 719, 839, 863, 887, 983, .... %e A241973 83 comes before 37 because 167 (the smallest prime factor of 2^83-1) < 223 (the smallest prime factor of 2^37-1). %o A241973 (PARI) lista() = {vi = readvec("b054723.txt"); vm = vector(#vi, i, 2^vi[i]-1); p = 2; nbf = 0; while ( nbf != #vm, i = 1; while (!(i>#vm) && (!vm[i] || (vm[i] % p)), i++); if (i <= #vm, print1(vi[i], ", "); vm[i] = 0; nbf ++;); p = nextprime(p+1););} \\ _Michel Marcus_, May 14 2014 %Y A241973 Cf. A054723, A136030. %K A241973 nonn %O A241973 1,1 %A A241973 _J. Lowell_, May 03 2014 %E A241973 More terms from _Michel Marcus_, May 14 2014