|
%I #17 Sep 23 2022 13:48:59
%S 0,6,14,18,20,30,36,38,44,48,50,74,78,84,98,104,108,116,120,126,140,
%T 144,146,158,168,174,176,198,206,210,218,224,228,234,246,248,258,260,
%U 270,276,284,290,296,300,308,324,326,330,344,356,360,366,380,386,396,414
%N Numbers n such that 19*n + 17 is prime.
%H Harvey P. Dale, <a href="/A108977/b108977.txt">Table of n, a(n) for n = 1..1000</a>
%e If n=0 then 19*n + 17 = 17 (prime).
%e If n=98 then 19*n + 17 = 1879 (prime).
%p select(n-> isprime(19*n+17), [$0..500])[]; # _Emeric Deutsch_, Aug 03 2005
%t Select[Range[0,500],PrimeQ[19#+17]&] (* _Harvey P. Dale_, Sep 23 2022 *)
%o (PARI) is(n)=isprime(19*n+17) \\ _Charles R Greathouse IV_, Jun 13 2017
%K nonn,easy
%O 1,2
%A _Parthasarathy Nambi_, Jul 27 2005
%E More terms from _Emeric Deutsch_, Aug 03 2005
|
