A243096 Lesser of twin primes (A001359) such that both are full reptend primes (A001913).

17, 59, 179, 821, 1019, 1301, 1619, 2141, 2339, 3257, 3299, 3461, 4217, 4259, 4337, 4421, 5417, 5501, 5657, 5741, 6659, 6701, 7457, 8819, 8861, 9341, 10139, 10457, 10859, 10937, 11057, 11699, 11939, 12377, 12821, 13337, 13901, 15137, 15581, 15737, 16979, 17417, 17579, 18059, 19139, 19541, 19697

Offset

1,1

Comments

A proper subset of both A001359 and A001913.

Number of terms < 10^k: 0, 2, 4, 26, 152, 1015, 7618, 56282, 436385, …, .

Links

Robert G. Wilson v, Table of n, a(n) for n = 1..10000

Formula

Intersection of A001359 and A001913.

Mathematica

Select[ Prime@ Range@ 2300, MultiplicativeOrder[10, #] == # - 1 && MultiplicativeOrder[10, # + 2] == # + 1 &]
Select[Partition[Prime[Range[2500]], 2, 1], #[[2]]-#[[1]]==2&& PrimitiveRoot[ #, 10]=={10, 10}&][[All, 1]] (* Harvey P. Dale, Dec 02 2017 *)

Crossrefs

Cf. A001359 & A001913.

Sequence in context: A031391 A176783 A086816 * A221569 A179816 A094207

Adjacent sequences: A243093 A243094 A243095 * A243097 A243098 A243099

Keyword

nonn,easy

Author

Robert G. Wilson v, Aug 18 2014

Status

approved