|
%I #11 Jan 14 2024 00:14:25
%S 4,8,14,26,34,38,40,50,56,64,68,70,88,94,104,106,110,118,130,134,140,
%T 158,160,190,200,206,218,220,224,236,238,256,260,266,278,284,286,290,
%U 298,308,328,334,346,356,370,374,386,388,398,404,416,424,430,434,454,458
%N Nonnegative integers k such that 19*k-3 is prime.
%H Andrew Howroyd, <a href="/A138643/b138643.txt">Table of n, a(n) for n = 1..1000</a>
%e 19*4 - 3 = 73, 19*8 - 3 = 149, 19*14 - 3 = 263, 19*26 - 3 = 491, ...
%t a={};Do[x=19*n-3;If[PrimeQ[x],AppendTo[a,n]],{n,10^2}];a
%t Select[Range[500],PrimeQ[19#-3]&] (* _Harvey P. Dale_, Apr 18 2021 *)
%o (PARI) select(k->isprime(19*k-3), [1..500]) \\ _Andrew Howroyd_, Feb 02 2020
%K nonn
%O 1,1
%A _Vladimir Joseph Stephan Orlovsky_, May 15 2008
%E Terms a(22) and beyond from _Andrew Howroyd_, Feb 02 2020
|
