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

Author

Robert G. Wilson v, Aug 18 2014

Keywords

• nonn
• easy

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

Crossrefs

Cf. A001359 & A001913.

Programs

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 *)

Formula

Intersection of A001359 and A001913.