A158018 Primes p such that (p - 1)/12 is also prime.
37, 61, 157, 229, 277, 349, 373, 709, 733, 853, 877, 997, 1069, 1213, 1237, 1669, 1789, 2293, 2389, 2677, 2749, 2797, 3229, 3253, 3373, 3517, 3733, 4549, 4597, 4813, 4909, 5197, 5557, 5749, 6037, 6277, 6829, 7213, 7573, 7717, 7933, 8293, 8629, 9013, 9133
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
Programs
-
Mathematica
Flatten[Table[If[PrimeQ[n] && PrimeQ[(n - 1)/12], n, {}], {n, 1, 10000}]] Select[Prime[Range[1500]], PrimeQ[(# - 1) / 12]&] (* Vincenzo Librandi, Apr 14 2013 *)
Formula
a(n)=12*A075704(n)+1. [From R. J. Mathar, Mar 15 2009]
Extensions
Definition slightly rephrased - The Assoc. Eds. of the OEIS, Aug 30 2010