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

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, 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, 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

Offset: 1

Author

Labos Elemer, May 09 2003

Keywords

• nonn

Links

• Amiram Eldar, Table of n, a(n) for n = 1..10000

Crossrefs

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

Programs

Mathematica

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 *)

Extensions

Corrected by Ray Chandler, Aug 01 2004