OFFSET
1,2
COMMENTS
LINKS
EXAMPLE
a(4)=4 for prime(30)=113=4*30-7 and prime(31)=127=4*30+7.
a(5)=9 for prime(56)=263=9*30-7 and prime(59)=277=9*30+7.
MATHEMATICA
Select[Range@ 215, AllTrue[30 # + {-7, 7}, PrimeQ] &] (* Michael De Vlieger, Feb 25 2020 *)
PROG
(Rexx)
S = 1
do N = 2 while length( S ) < 255
if NOPRIME( N * 30 + 7 ) then iterate N
if NOPRIME( N * 30 - 7 ) then iterate N
S = S || ', ' N
end N
say S
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Frank Ellermann, Feb 25 2020
STATUS
approved