OFFSET
1,2
EXAMPLE
a(1)=2^0=1. a(2)=3^1=3. a(3)=5^4=625.
MATHEMATICA
nn=20; With[{prs=Prime[Range[nn]]}, First[#]^Last[#]&/@Thread[{prs, Take[ Complement[Range[0, Last[prs]+1], prs], nn]}]] (* Harvey P. Dale, Sep 24 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Jun 23 2009
EXTENSIONS
Extended by R. J. Mathar, Aug 14 2009
STATUS
approved