A164569 Primes p such that 11*p+8 are prime numbers.
3, 13, 31, 73, 79, 151, 163, 181, 193, 241, 283, 349, 373, 379, 409, 421, 463, 601, 631, 673, 751, 769, 811, 829, 853, 883, 991, 1021, 1039, 1063, 1171, 1201, 1303, 1381, 1423, 1429, 1453, 1459, 1471, 1543, 1549, 1579, 1609, 1621, 1663, 1669, 1789, 1801
Offset: 1
Examples
11*3+8=41, ..
Programs
-
Mathematica
lst={};Do[p=Prime[n];If[PrimeQ[11*p+8],AppendTo[lst,p]],{n,6!}];lst Select[Prime[Range[500]],PrimeQ[11#+8]&] (* Harvey P. Dale, Jul 17 2011 *)
Extensions
Comment from Charles R Greathouse IV, Oct 12 2009
Comments