OFFSET
1,1
LINKS
EXAMPLE
54*2-1=107, 54*2+1=109; 54*5-1=269, 54*5+1=271; ...
MATHEMATICA
a=54; Select[Prime[Range[10^3]], PrimeQ[a*#-1]&&PrimeQ[a*#+1]&]
Select[Prime[Range[1200]], AllTrue[54#+{1, -1}, PrimeQ]&] (* Harvey P. Dale, Mar 01 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, May 15 2008
EXTENSIONS
More terms from b-file by Hagen von Eitzen, Jun 17 2009
STATUS
approved