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 A073486 #14 Apr 10 2021 05:52:01 %S A073486 10,14,21,22,26,33,34,38,39,42,46,51,55,57,58,62,65,66,69,70,74,78,82, %T A073486 85,86,87,91,93,94,95,102,106,110,111,114,115,118,119,122,123,129,130, %U A073486 133,134,138,141,142,145,146,154,155,158,159,161,165,166,170,174,177 %N A073486 Squarefree numbers having at least one prime gap. %C A073486 Subsequence of A193166. - _Reinhard Zumkeller_, Aug 26 2011 %H A073486 Amiram Eldar, <a href="/A073486/b073486.txt">Table of n, a(n) for n = 1..10000</a> %F A073486 A073484(a(n)) > 0 and A073483(a(n)) > 1. %F A073486 A192280(a(n)) = 0. - _Reinhard Zumkeller_, Aug 26 2011 %t A073486 q[n_] := SequenceCount[FactorInteger[n][[;; , 1]], {p1_, p2_} /; p2 != NextPrime[p1]] > 0; Select[Range[177], SquareFreeQ[#] && q[#] &] (* _Amiram Eldar_, Apr 10 2021 *) %Y A073486 Cf. A005117, A073487, A073488, A073489, A073485, A073492, A193166. %K A073486 nonn %O A073486 1,1 %A A073486 _Reinhard Zumkeller_, Aug 03 2002