OFFSET
1,1
MATHEMATICA
Array[Prime[#]! + Prime[#]&, 20]
#!+#&/@Prime[Range[20]] (* Harvey P. Dale, Aug 04 2016 *)
PROG
(Magma) [Factorial(p)+p: p in PrimesUpTo(40)];
(PARI) lista(nn) = forprime(p=2, nn, print1(p! + p, ", ")); \\ Altug Alkan, Jan 23 2016
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 22 2016
STATUS
approved