A092216 Primes of the form p + 12 where p is a prime.

17, 19, 23, 29, 31, 41, 43, 53, 59, 71, 73, 79, 83, 101, 109, 113, 139, 149, 151, 163, 179, 191, 193, 211, 223, 239, 241, 251, 263, 269, 281, 283, 293, 349, 359, 379, 401, 409, 421, 431, 433, 443, 461, 479, 491, 499, 503, 521, 569, 599, 613, 619, 631, 643, 653

Offset: 1

Author

Douglas Winston (douglas.winston(AT)srupc.com), Apr 02 2004

Keywords

• nonn

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A000040, A006512, A046132, A046117, A092402, A092146.

Programs

Mathematica

f[n_]:=n+12; lst={};Do[r=Prime[n];p=f[r];If[PrimeQ[p],AppendTo[lst,p]],{n,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Jul 04 2009 *)
Select[Prime[Range[5,120]],PrimeQ[#-12]&]  (* Harvey P. Dale, Feb 18 2011 *)

Formula

a(n) = 12 + A046133(n). - R. J. Mathar, Jun 21 2010