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 A210242 #29 Sep 14 2019 06:36:25 %S A210242 17,19,89,97,137,139,263,269,757,761,907,911,1201,1213,1481,1483,2309, %T A210242 2311,2609,2617,4679,4691,5743,5749,10733,10739,16103,16111,16267, %U A210242 16273,19759,19763,20269,20287,32531,32533,35509,35521,38693,38699,42499,42509,43633,43649 %N A210242 Pairs of consecutive primes {p,q} for which the numbers of distinct residues of all factorials mod p and mod q coincide. %H A210242 Amiram Eldar, <a href="/A210242/b210242.txt">Table of n, a(n) for n = 1..240</a> %F A210242 pi(a(2*n)) = pi(a(2*n-1)) + 1. %F A210242 A210184(pi(a(2*n))) = A210184(pi(a(2*n-1))). %t A210242 t = {}; last = 2; Do[new = Length[Union[Mod[Range[Prime[n]]!, Prime[n]]]]; If[last == new, AppendTo[t, {Prime[n - 1], Prime[n]}]]; last = new, {n, 2, 100}]; t (* _T. D. Noe_, Mar 20 2012 *) %Y A210242 Cf. A210184, A210336. %K A210242 nonn,tabf %O A210242 1,1 %A A210242 _Vladimir Shevelev_, Mar 19 2012 %E A210242 More terms from _Amiram Eldar_, Sep 14 2019