A108601 - OEIS

%I #14 Jun 12 2017 19:19:54

%S 132,136,142,144,150,154,156,162,166,172,174,180,190,192,196,202,214,

%T 216,222,234,240,244,246,250,252,256,264,276,280,282,286,304,306,310,

%U 316,330,334,342,346,352,354,360,364,372,376,384,394,396,400,406,412

%N Numbers n such that 7*n - 911 is prime.

%C 7 and 911 are primes.

%C Since 7*n-911=7*(n-131)+6, the corresponding primes are in A045473. - _R. J. Mathar_, Apr 26 2008

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

%e If n=132 then 7*n - 911 = 13 (prime).

%e If n=172 then 7*n - 911 = 293 (prime).

%p A108601 := proc(n) option remember ; if n = 1 then 132 ; else for a from A108601(n-1)+1 do if isprime(7*a-911) then RETURN(a) ; fi ; od: fi ; end: seq(A108601(n),n=1..80) ; # _R. J. Mathar_, Apr 26 2008

%t Select[Range[131,500],PrimeQ[7#-911]&] (* _Harvey P. Dale_, Dec 08 2014 *)

%o (PARI) is(n)=isprime(7*n-911) \\ _Charles R Greathouse IV_, Jun 12 2017

%K nonn,easy

%O 1,1

%A _Parthasarathy Nambi_, Jul 25 2005

%E More terms from _R. J. Mathar_, Apr 26 2008