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 A073492 #13 Dec 21 2013 05:51:11 %S A073492 10,14,20,21,22,26,28,33,34,38,39,40,42,44,46,50,51,52,55,56,57,58,62, %T A073492 63,65,66,68,69,70,74,76,78,80,82,84,85,86,87,88,91,92,93,94,95,98,99, %U A073492 100,102,104,106,110,111,112,114,115,116,117,118,119,122,123,124,126 %N A073492 Numbers having at least one prime gap in their factorization. %C A073492 A073490(a(n)) > 0. %C A073492 A137794(a(n))=0, complement of A073491. - _Reinhard Zumkeller_, Feb 11 2008 %H A073492 Reinhard Zumkeller, <a href="/A073492/b073492.txt">Table of n, a(n) for n = 1..10000</a> %t A073492 pa[n_, k_] := If[k == NextPrime[n], 0, 1]; Select[Range[126],Total[pa @@@ Partition[First /@ FactorInteger[#], 2, 1]] > 0 &] (* _Jayanta Basu_, Jul 01 2013 *) %o A073492 (Haskell) %o A073492 a073492 n = a073492_list !! (n-1) %o A073492 a073492_list = filter ((> 0) . a073490) [1..] %o A073492 -- _Reinhard Zumkeller_, Dec 20 2013 %Y A073492 Cf. A005117, A073493, A073494, A073495, A073491, A073486. %K A073492 nonn %O A073492 1,1 %A A073492 _Reinhard Zumkeller_, Aug 03 2002