|
%I #6 Apr 03 2023 10:36:13
%S 4,87,34951,73203,475341523
%N Difference between the smallest 10^n-digit member of a sexy prime pair and 10^(10^n - 1).
%H G. L. Honaker, Jr. and Chris Caldwell, <a href="https://t5k.org/curios/cpage/18952.html">Prime Curios! 10000...34951 (100-digits)</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/SexyPrimes.html">Sexy Primes</a>. [The definition in this webpage is unsatisfactory, because it defines a "sexy prime" as a pair of primes.- _N. J. A. Sloane_, Mar 07 2021]
%t lst = {}; Do[s = 10^(10^n - 1); n = NextPrime[s]; While[! PrimeQ[n + 6], n = NextPrime[n]]; AppendTo[lst, n - s], {n, 0, 2}]; lst
%Y Cf. A023201.
%K nonn,base,hard,more
%O 0,1
%A _Arkadiusz Wesolowski_, Mar 08 2014
|
