%I #17 Feb 23 2025 02:40:35

%S 1,4,6,8,4,6,12,6,6,16,12,12,6,6,24,4,6,8,12,30,32,6,6,6,36,6,6,24,30,

%T 12,12,6,48,4,12,6,12,24,6,24,6,6,60,6,12,64,6,30,12,6,30,72,6,12,12,

%U 6,30,48,16,6,60,6,6,6,24,60,6,12,6,6,6,96,12,12,36,30,24,30,6,72,30,6,48

%N a(n) = A046523(n-th nonprime number) = A046523(A018252(n)).

%H Amiram Eldar, <a href="/A083256/b083256.txt">Table of n, a(n) for n = 1..10000</a>

%t f[n_] := Module[{e = ReverseSort[FactorInteger[n][[;; , 2]]]}, Times @@ (Prime[Range[Length[e]]]^e)]; f[1] = 1; f /@ Select[Range[120], !PrimeQ[#] &] (* _Amiram Eldar_, Feb 22 2025 *)

%Y Cf. A007395, A000040, A002808, A018252, A046523, A071364, A083257.

%K nonn

%O 1,2

%A _Labos Elemer_, May 09 2003

%E Corrected by _Ray Chandler_, Aug 01 2004