OFFSET
1,1
COMMENTS
Inspired by A061068.
Obviously, sequence only can include even numbers.
Initial primes of the form prime(prime(n)) + n are 7, 47, 257, 373, 647, 1129, 2797, 3389, 3499, 4129, 4447.
EXAMPLE
For n=2, prime(prime(2)) + 2 = prime(3) + 2 = 7. 7 is a prime number.
MATHEMATICA
Select[Range[600], PrimeQ[Prime[Prime[#]] + #] &] (* Vincenzo Librandi, Aug 30 2015 *)
PROG
(PARI) for(n=1, 1e3, if(isprime(prime(prime(n))+n), print1(n", ")))
(Magma) [n: n in [1..600] | IsPrime(NthPrime(NthPrime(n))+n)]; // Vincenzo Librandi, Aug 30 2015
(Perl) use ntheory ":all"; my @p = grep { is_prime(nth_prime(nth_prime($_))+$_) } 1..10000; say join ", ", @p; # Dana Jacobsen, Sep 02 2015
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Altug Alkan, Aug 29 2015
STATUS
approved