A129071 - OEIS

%I #6 Aug 15 2015 09:47:43

%S 19,25,37,49,73,85,109,121,145,181,193,229,253,265,289,325,361,373,

%T 409,433,445,481,505,541,589,613,625,649,661,685,769,793,829,841,901,

%U 913,949,985,1009,1045,1081,1093,1153,1165,1189,1201,1273,1345,1369,1381

%N Numbers n such that (n-7)/6 is prime.

%H Harvey P. Dale, <a href="/A129071/b129071.txt">Table of n, a(n) for n = 1..1000</a>

%F a(n) = 6*prime(n) + 7. - Zak Seidov, May 12 2007

%e For n=19, (19-7)/6 = 2 which is prime so 19 is the first entry.

%t Select[Range[1500],PrimeQ[(#-7)/6]&] (* _Harvey P. Dale_, Aug 15 2015 *)

%o (PARI) g(m) = forprime(p=2,m,n=6*p+7;print1(n","))

%Y Cf. A000040.

%K easy,nonn

%O 1,1

%A _Cino Hilliard_, May 11 2007, May 17 2007