login
A138643
Nonnegative integers k such that 19*k-3 is prime.
1
4, 8, 14, 26, 34, 38, 40, 50, 56, 64, 68, 70, 88, 94, 104, 106, 110, 118, 130, 134, 140, 158, 160, 190, 200, 206, 218, 220, 224, 236, 238, 256, 260, 266, 278, 284, 286, 290, 298, 308, 328, 334, 346, 356, 370, 374, 386, 388, 398, 404, 416, 424, 430, 434, 454, 458
OFFSET
1,1
LINKS
EXAMPLE
19*4 - 3 = 73, 19*8 - 3 = 149, 19*14 - 3 = 263, 19*26 - 3 = 491, ...
MATHEMATICA
a={}; Do[x=19*n-3; If[PrimeQ[x], AppendTo[a, n]], {n, 10^2}]; a
Select[Range[500], PrimeQ[19#-3]&] (* Harvey P. Dale, Apr 18 2021 *)
PROG
(PARI) select(k->isprime(19*k-3), [1..500]) \\ Andrew Howroyd, Feb 02 2020
CROSSREFS
Sequence in context: A020185 A008029 A129080 * A183977 A153364 A124743
KEYWORD
nonn
AUTHOR
EXTENSIONS
Terms a(22) and beyond from Andrew Howroyd, Feb 02 2020
STATUS
approved