OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..2000
EXAMPLE
a(6) = 432 because 431999999 and 432000001 are primes.
MAPLE
a:=proc(n) if isprime(10^6*n-1)=true and isprime(10^6*n+1)=true then n else fi end: seq(a(n), n=1..4500); # Emeric Deutsch, Nov 16 2006
MATHEMATICA
Select[Range[3800], AllTrue[#*10^6+{1, -1}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Nov 13 2017 *)
CROSSREFS
KEYWORD
easy,nonn,less
AUTHOR
Jonathan Vos Post, Nov 05 2006
EXTENSIONS
More terms from Emeric Deutsch, Nov 16 2006
STATUS
approved