OFFSET
1,1
COMMENTS
Subsequence of A261809. - Altug Alkan, Nov 22 2015
MATHEMATICA
Select[Table[n! - Prime[n], {n, 50}], PrimeQ]
PROG
(Magma) [a: n in [1..40] | IsPrime(a) where a is Factorial(n)-NthPrime(n)];
(PARI) for(n=1, 1e2, if(isprime(k=(n!-prime(n))), print1(k, ", "))) \\ Altug Alkan, Nov 22 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Vincenzo Librandi, Nov 22 2015
STATUS
approved