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 A083257 #17 Feb 23 2025 02:40:39 %S A083257 1,4,6,8,4,6,12,6,6,16,18,12,6,6,24,4,6,8,12,30,32,6,6,6,36,6,6,24,30, %T A083257 12,12,6,48,4,18,6,12,54,6,24,6,6,60,6,12,64,6,30,12,6,30,72,6,18,12, %U A083257 6,30,48,16,6,60,6,6,6,24,90,6,12,6,6,6,96,18,12,36,30,24,30,6,108,30,6 %N A083257 a(n) = A071364(n-th nonprime number) = A071364(A018252(n)). %H A083257 Amiram Eldar, <a href="/A083257/b083257.txt">Table of n, a(n) for n = 1..10000</a> %t A083257 f[n_] := Module[{e = FactorInteger[n][[;; , 2]]}, Times @@ (Prime[Range[Length[e]]]^e)]; f[1] = 1; f /@ Select[Range[120], !PrimeQ[#] &] (* _Amiram Eldar_, Feb 22 2025 *) %Y A083257 Cf. A007395, A000040, A002808, A018252, A046523, A071364, A083256. %K A083257 nonn %O A083257 1,2 %A A083257 _Labos Elemer_, May 09 2003 %E A083257 Corrected by _Ray Chandler_, Aug 01 2004