login
A267898
a(n) = prime(n)! + prime(n).
0
4, 9, 125, 5047, 39916811, 6227020813, 355687428096017, 121645100408832019, 25852016738884976640023, 8841761993739701954543616000029, 8222838654177922817725562880000031, 13763753091226345046315979581580902400000037
OFFSET
1,1
FORMULA
a(n) = A039716(n) + A000040(n).
a(n) = A005095(A000040(n)).
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