cp's OEIS Frontend

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.

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

This page as a plain text file.
%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