This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A243096 #14 Dec 02 2017 09:53:10 %S A243096 17,59,179,821,1019,1301,1619,2141,2339,3257,3299,3461,4217,4259,4337, %T A243096 4421,5417,5501,5657,5741,6659,6701,7457,8819,8861,9341,10139,10457, %U A243096 10859,10937,11057,11699,11939,12377,12821,13337,13901,15137,15581,15737,16979,17417,17579,18059,19139,19541,19697 %N A243096 Lesser of twin primes (A001359) such that both are full reptend primes (A001913). %C A243096 A proper subset of both A001359 and A001913. %C A243096 Number of terms < 10^k: 0, 2, 4, 26, 152, 1015, 7618, 56282, 436385, …, . %H A243096 Robert G. Wilson v, <a href="/A243096/b243096.txt">Table of n, a(n) for n = 1..10000</a> %F A243096 Intersection of A001359 and A001913. %t A243096 Select[ Prime@ Range@ 2300, MultiplicativeOrder[10, #] == # - 1 && MultiplicativeOrder[10, # + 2] == # + 1 &] %t A243096 Select[Partition[Prime[Range[2500]],2,1],#[[2]]-#[[1]]==2&& PrimitiveRoot[ #,10]=={10,10}&][[All,1]] (* _Harvey P. Dale_, Dec 02 2017 *) %Y A243096 Cf. A001359 & A001913. %K A243096 nonn,easy %O A243096 1,1 %A A243096 _Robert G. Wilson v_, Aug 18 2014