OFFSET
1,1
EXAMPLE
a(3) = 5^6 = 15625 because 5 is the 3rd prime number and 6 is the 3rd nonprime number.
MATHEMATICA
Block[{p = Prime@ Range@ 12, k}, k = Complement[Range@ Max@ p, p]; Array[p[[#]]^k[[#]] &, Length@ p]] (* Michael De Vlieger, Apr 12 2018 *)
PROG
(PARI) lista(nn) = my(k=0); for (n=1, nn, if (!isprime(n), k++; print1(prime(k)^n, ", "))) \\ Michel Marcus, Apr 12 2018
CROSSREFS
KEYWORD
nonn
AUTHOR
Kritsada Moomuang, Apr 12 2018
EXTENSIONS
a(12) corrected and more terms by Georg Fischer, Dec 09 2022
STATUS
approved