OFFSET
1,1
COMMENTS
LINKS
Zhi-Wei Sun, Table of n, a(n) for n = 1..150
EXAMPLE
a(1) = 2 since 2 and q(2) + 1 = 2 are both prime.
a(2) = 3 since 3 and q(3) + 1 = 3 are both prime.
a(3) = 11 since 11 and q(11) + 1 = 13 are both prime.
MATHEMATICA
n=0; Do[If[PrimeQ[PartitionsQ[Prime[k]]+1], n=n+1; Print[n, " ", Prime[k]]], {k, 1, 10^5}]
Select[Prime[Range[2000]], PrimeQ[PartitionsQ[#]+1]&] (* Harvey P. Dale, Apr 23 2017 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zhi-Wei Sun, Dec 27 2013
STATUS
approved