OFFSET
1,1
COMMENTS
LINKS
Zak Seidov, Table of n, a(n) for n = 1..1000.
Alexei Kourbatov and Marek Wolf, Predicting maximal gaps in sets of primes, arXiv preprint arXiv:1901.03785 [math.NT], 2019.
MATHEMATICA
Select[ Prime@ Range@ 1000, Mod[#, 4] == 1 && PrimeQ[# + 2] &] (* Robert G. Wilson v, Jan 22 2012 *)
PROG
(PARI) p=2; forprime(q=3, 1e4, if(q-p==2 && p%4==1, print1(p", ")); p=q) \\ Charles R Greathouse IV, Mar 20 2013
(Haskell)
a071695 n = a071695_list !! (n-1)
a071695_list = [p | p <- a002144_list, a010051' (p + 2) == 1]
-- Reinhard Zumkeller, Nov 10 2013
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Jun 04 2002
STATUS
approved