OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
36*2-1=71, 36*2+1=73; 36*3-1=107, 36*p+1=109;...
MAPLE
Res:= NULL: count:= 0:
p:= 1:
while count < 100 do
p:= nextprime(p);
if isprime(36*p-1) and isprime(36*p+1) then
count:= count+1; Res:= Res, p;
fi
od:
Res; # Robert Israel, Jan 14 2019
MATHEMATICA
a=36; Select[Prime[Range[10^3]], PrimeQ[a*#-1]&&PrimeQ[a*#+1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 15 2008
STATUS
approved