A071696 Greater members of twin prime pairs of form (4*k+1,4*k+3), k>0.

7, 19, 31, 43, 103, 139, 151, 199, 271, 283, 463, 523, 571, 619, 643, 811, 823, 859, 883, 1051, 1063, 1231, 1279, 1291, 1303, 1483, 1699, 1723, 1879, 1951, 1999, 2083, 2131, 2143, 2239, 2311, 2383, 2551, 2659, 2731, 2791, 2803, 2971

Offset

1,1

Comments

Corresponding lesser members: A071695(n).

A010051(a(n)) * A010051(a(n)-2) = 1. - Reinhard Zumkeller, Nov 10 2013

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Mathematica

Select[Partition[Prime[Range[500]], 2, 1], #[[2]]-#[[1]]==2&&IntegerQ[ (#[[1]]-1)/4]&][[All, 2]] (* Harvey P. Dale, Aug 27 2021 *)
Select[Table[4k+{1, 3}, {k, 750}], AllTrue[#, PrimeQ]&][[;; , 2]] (* Harvey P. Dale, Sep 10 2024 *)

Prog

(Haskell)
a071696 n = a071696_list !! (n-1)
a071696_list = [p | p <- tail a002145_list, a010051' (p - 2) == 1]
-- Reinhard Zumkeller, Nov 10 2013

Crossrefs

Cf. A006512, A071699, A071697.

Cf. Subsequence of A002145.

Sequence in context: A126194 A068229 A323594 * A216530 A114564 A191118

Adjacent sequences: A071693 A071694 A071695 * A071697 A071698 A071699

Keyword

nonn

Author

Reinhard Zumkeller, Jun 04 2002

Status

approved