A094524 Primes of form 3*prime(m) + 2.
11, 17, 23, 41, 53, 59, 71, 89, 113, 131, 179, 239, 251, 269, 293, 311, 383, 419, 449, 491, 503, 521, 593, 599, 683, 701, 719, 773, 809, 881, 941, 953, 1013, 1049, 1061, 1103, 1151, 1193, 1229, 1259, 1301, 1319, 1373, 1439, 1499, 1511, 1571, 1709, 1733
Offset: 1
Examples
a(7) = 3*23 + 2 = 71.
Links
- Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Programs
-
Haskell
a094524 = (+ 2) . (* 3) . a023208 -- Reinhard Zumkeller, Aug 15 2011
-
Mathematica
Select[Table[3*Prime[n]+2,{n,200}],PrimeQ] (* Vladimir Joseph Stephan Orlovsky, Feb 01 2012 *)
-
PARI
forprime(p=2,600,if(isprime(q=3*p+2),print1(q,",")))
Formula
a(n) = 3*A023208(n) + 2.