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 A088383 #14 Feb 12 2025 11:56:17 %S A088383 18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62, %T A088383 64,66,68,70,72,74,76,78,80,82,84,86,87,88,90,92,93,94,96,98,99,100, %U A088383 102,104,105,106,108,110,111,112,114,116,117,118,120,122,123,124,126 %N A088383 Numbers greater than the 4th power of their smallest prime factor. %C A088383 a(n) > A020639(a(n))^4 = A088379(a(n)); complement of A088382. %C A088383 a(n) > A088382(k) for n <= 67, a(n) < A088382(k) for n > 67. %H A088383 Reinhard Zumkeller, <a href="/A088383/b088383.txt">Table of n, a(n) for n = 1..10000</a> %t A088383 Select[Range[200],#>(FactorInteger[#][[1,1]])^4&] (* _Harvey P. Dale_, Aug 15 2015 *) %o A088383 (Haskell) %o A088383 a088383 n = a088383_list !! (n-1) %o A088383 a088383_list = [x | x <- [1..], x a020639 x ^ 4] %o A088383 -- _Reinhard Zumkeller_, Feb 06 2015 %Y A088383 Cf. A088381, A080257, A020639, A088379, A088382. %Y A088383 Positions of numbers greater than 4 in A307908. %K A088383 nonn %O A088383 1,1 %A A088383 _Reinhard Zumkeller_, Sep 28 2003