A165810 - OEIS

2, 7, 11, 17, 29, 41, 59, 71, 79, 97, 127, 137, 139, 149, 151, 181, 197, 199, 241, 251, 277, 281, 307, 337, 347, 367, 379, 401, 431, 479, 491, 541, 569, 587, 659, 701, 709, 757, 797, 809, 821, 827, 829, 857, 877, 881, 947, 991, 1021, 1051, 1109, 1117, 1129, 1151, 1229

EXAMPLE

For p=2, 18*p+1=37. For p=7, 18*p+1=127. For p=11, 18*p+1=199.

MATHEMATICA

Select[Prime[Range[1000]], PrimeQ[18#+1]&] (* Harvey P. Dale, Mar 06 2011 *)