|
|
A232728
|
|
Primes p such that the concatenation p123456789 is prime.
|
|
2
|
|
|
41, 59, 179, 193, 241, 409, 439, 613, 653, 661, 719, 739, 787, 853, 881, 887, 997, 1091, 1103, 1129, 1181, 1213, 1381, 1409, 1459, 1487, 1489, 1571, 1579, 1669, 1741, 1801, 1823, 1861, 1871, 1879, 1889, 1907, 1913, 1993, 2039, 2083, 2099, 2243, 2417, 2593, 2659, 2663, 2729, 2741, 2833, 3079, 3119
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
EXAMPLE
|
59 is a member of this sequence because 59 is prime and 59123456789 is prime.
|
|
MATHEMATICA
|
With[{r=Range[1, 9]}, Select[Prime[Range[500]], PrimeQ[FromDigits[Join[IntegerDigits[#], r]]]&]] (* Vincenzo Librandi, Apr 28 2015 *)
Select[Prime[Range[500]], PrimeQ[#*10^9+123456789]&] (* Harvey P. Dale, Apr 01 2018 *)
|
|
PROG
|
(Python)
from sympy import prime, isprime
{print(prime(n), end=', ') for n in range(1, 10**3) if isprime(int(str(prime(n))+'123456789'))}
(PARI) forprime(p=1, 10^4, if(isprime(eval(concat(Str(p), "123456789"))), print1(p, ", "))) \\ Derek Orr, Apr 28 2015
(Magma) [p: p in PrimesUpTo(5000) | IsPrime(Seqint(Intseq(123456789) cat Intseq(p)))]; // Vincenzo Librandi, Apr 28 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,easy
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|