OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Range[0, 499], PrimeQ[90# + 47] && PrimeQ[90# + 49] &] (* copied from: Alonso del Arte, Jul 22 2013 *)
Select[Range[500], AllTrue[90#+{47, 49}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 18 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. W. Helkenberg, Jul 22 2013
STATUS
approved