login
A243096
Lesser of twin primes (A001359) such that both are full reptend primes (A001913).
2
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
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
Sequence in context: A031391 A176783 A086816 * A221569 A179816 A094207
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Aug 18 2014
STATUS
approved