OFFSET
1,1
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..77
FORMULA
MATHEMATICA
Table[Prime[n]^Prime[n] + Prime[n], {n, 20}] (* Vincenzo Librandi, Mar 27 2014 *)
PROG
(PARI) for(x=1, 16, print( prime(x)^prime(x)+prime(x)))
(PARI) a(n, p=prime(n))=p^p+p \\ Charles R Greathouse IV, Dec 12 2022
(Magma) [p^p+p: p in PrimesUpTo(40)]; // Vincenzo Librandi, Mar 27 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Jorge Coveiro, Dec 24 2004
STATUS
approved