OFFSET
1,1
EXAMPLE
211 = 210*1 + 1 is prime; 1471 = 210*7 + 1 is prime.
MATHEMATICA
210*Flatten[Position[PrimeQ[210Range[100]+1], True]]+1
Select[1+210Range[100], PrimeQ] (* Ray Chandler, Apr 29 2010 *)
PROG
(Magma) [ a: n in [0..400] | IsPrime(a) where a is 210*n+1] // Vincenzo Librandi, Aug 08 2010
(PARI) select(x->((x % 210)==1), primes(3000)) \\ Michel Marcus, Jan 14 2018
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Zak Seidov Aug 24 2002
EXTENSIONS
Extended by Ray Chandler, Apr 29 2010
STATUS
approved