A259152 a(n) = smallest n-digit prime with first 10 digits distinct.
10234567897, 102345678907, 1023456789013, 10234567890077, 102345678900007, 1023456789000073, 10234567890000053, 102345678900000059, 1023456789000000049, 10234567890000000007
Offset: 11
Links
- Robert Israel, Table of n, a(n) for n = 11..900
Programs
-
Maple
seq(nextprime(1023456789*10^(d-10)),d=11..100); # Robert Israel, Jun 19 2015
-
Mathematica
Table[NextPrime[1023456789*10^(d - 10)], {d, 11, 100}] (* Michael De Vlieger, Jun 19 2015, after the Maple by Robert Israel *) -
Perl
use Math::GMPz; use ntheory ":all"; do { my $n=next_prime(1023456789 * Math::GMPz->new(10)**($-10)); say $n; } for (11..100); # _Dana Jacobsen, Jun 26 2015
Comments