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 A185208 #22 Sep 07 2013 14:24:26 %S A185208 1,5,11,13,17,19,23,25,29,37,41,43,47,53,55,59,61,65,67,71,73,79,83, %T A185208 85,89,95,97,101,103,107,109,113,115,121,125,131,137,139,143,145,149, %U A185208 151,157,163,167,169,173,179,181,185,187,191,193,197,199,205,209 %N A185208 Numbers having no divisors d > 1 such that d + 1 are prime powers. %C A185208 A141197(a(n)) = A049073(a(n)) = 1. %C A185208 Contains all primes except for 2 and Mersenne primes A000668. - _Jon Perry_, Nov 11 2012 %C A185208 A composite number is in the sequence iff all its factors are. - _Jon Perry_, Nov 11 2012 %H A185208 Reinhard Zumkeller, <a href="/A185208/b185208.txt">Table of n, a(n) for n = 1..10000</a> %t A185208 Select[Range[210], Select[Divisors[#] // Rest, PrimeNu[# + 1] == 1 &] == {} &] (* _Jean-François Alcover_, Aug 17 2013 *) %o A185208 (Haskell) %o A185208 a185208 n = a185208_list !! (n-1) %o A185208 a185208_list = filter ((== 1) . a141197) [1..] %Y A185208 Cf. A000961, A010055, A027750. %Y A185208 Cf. A000668. %K A185208 nonn %O A185208 1,2 %A A185208 _Reinhard Zumkeller_, Nov 01 2012