login
A064976
n*10^2-1, n*10^2-3, n*10^2-7 and n*10^2-9 are all prime.
2
2, 695, 797, 1193, 2015, 2480, 3005, 3020, 3464, 3887, 6338, 6575, 6611, 6803, 7394, 7682, 7958, 9074, 10436, 10940, 11468, 12284, 13226, 15773, 17495, 18374, 19799, 20792, 22028, 23036, 25766, 26795, 27317, 27593, 28793, 29276, 29528, 30635
OFFSET
1,1
LINKS
MATHEMATICA
Select[Range[40000], PrimeQ[10^2# - 1] && PrimeQ[10^2# - 3] && PrimeQ[10^2# - 7] && PrimeQ[10^2# - 9] &]
Select[Range[31000], AllTrue[100#-{1, 3, 7, 9}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 01 2015 *)
CROSSREFS
Sequence in context: A106301 A127623 A115474 * A062665 A256669 A361451
KEYWORD
easy,nonn
AUTHOR
Robert G. Wilson v, Oct 30 2001
STATUS
approved