OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
EXAMPLE
a(1) = p = 4094999 is a term because numbers i*p+(i-1), i=2(2)12 8189999,16379999,24569999,32759999,40949999,49139999 are all primes.
MATHEMATICA
s={}; Do[p=Prime[i]; If[Union[PrimeQ[Table[i*p+(i-1), {i, 2, 12, 2}]]]=={True}, AppendTo[s, p]], {i, 289435, 1236230}]; s
With[{t=Table[2n #+(2n-1), {n, 6}]}, Select[Prime[ Range[ 168*10^5]], AllTrue[ t, PrimeQ]&]] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Feb 14 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Zak Seidov, May 09 2005, Mar 08 2007
STATUS
approved