A104912 Numbers k such that the string 9876543210k is prime.
29, 47, 61, 89, 97, 217, 229, 299, 361, 379, 389, 419, 461, 463, 467, 533, 637, 643, 649, 701, 707, 733, 749, 769, 791, 847, 869, 923, 943, 949, 997, 1067, 1103, 1169, 1319, 1327, 1361, 1439, 1451, 1481, 1489, 1493, 1517, 1543, 1549, 1579, 1591, 1643, 1681
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..1000
Programs
-
Magma
[ n: n in [1..1750] | IsPrime(Seqint(Intseq(n) cat [0, 1, 2, 3, 4, 5, 6, 7, 8, 9])) ]; // Vincenzo Librandi, Feb 02 2011
-
Mathematica
Select[Range[2000],PrimeQ[9876543210*10^IntegerLength[#]+#]&] (* Harvey P. Dale, Jun 22 2024 *)