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 A088382 #13 Feb 12 2025 11:56:01 %S A088382 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,19,21,23,25,27,29,31,33,35, %T A088382 37,39,41,43,45,47,49,51,53,55,57,59,61,63,65,67,69,71,73,75,77,79,81, %U A088382 83,85,89,91,95,97,101,103,107,109,113,115,119,121,125,127,131,133 %N A088382 Numbers not exceeding the 4th power of their smallest prime factor. %C A088382 a(n) <= A020639(a(n))^4 = A088379(a(n)); complement of A088383; %C A088382 a(n) < A088383(k) for n <= 67, a(n) > A088383(k) for n > 67. %H A088382 Reinhard Zumkeller, <a href="/A088382/b088382.txt">Table of n, a(n) for n = 1..10000</a> %t A088382 Select[Range[200],#<=FactorInteger[#][[1,1]]^4&] (* _Harvey P. Dale_, Jan 25 2015 *) %o A088382 (Haskell) %o A088382 a088382 n = a088382_list !! (n-1) %o A088382 a088382_list = [x | x <- [1..], x <= a020639 x ^ 4] %o A088382 -- _Reinhard Zumkeller_, Feb 06 2015 %Y A088382 Cf. A088380, A000430, A020639, A088379, A088383. %Y A088382 Positions of numbers less than 5 in A307908. %K A088382 nonn %O A088382 1,2 %A A088382 _Reinhard Zumkeller_, Sep 28 2003