A241528 Primes p such that p + 1234567890 is also prime where 1234567890 is the first pandigital number with digits in order.

17, 23, 37, 59, 131, 139, 157, 199, 241, 311, 353, 359, 397, 433, 479, 547, 673, 691, 769, 877, 937, 947, 953, 1051, 1091, 1097, 1181, 1297, 1301, 1409, 1451, 1471, 1489, 1531, 1609, 1619, 1697, 1709, 1861, 1879, 1889, 1913, 1951, 2053, 2063, 2089, 2099, 2113

Offset

1,1

Links

K. D. Bajpai, Table of n, a(n) for n = 1..10000

Example

17 is prime and appears in the sequence because 17 + 1234567890 = 1234567907, which is also prime.
23 is prime and appears in the sequence because 23 + 1234567890 = 1234567913, which is also prime.
19 is prime but not included in the sequence since 19 + 1234567890 = 1234567909 = (59107)*(20887), which is not prime.

Maple

KD := proc() local a, k; k:=ithprime(n); a:=k+1234567890; if isprime(a) then RETURN (k); fi; end: seq(KD(), n=1..1000);

Mathematica

lst={}; Do[p=Prime[n]; If[PrimeQ[p+1234567890], AppendTo[lst, p]], {n, 1, 1000}]; lst
(* For the b-file *)  c=0; k=Prime[n]; a=k+1234567890; Do[If[PrimeQ[a], c++; Print[c, " ", k]], {n, 1, 10^5}]
Select[Prime[Range[400]], PrimeQ[#+1234567890]&] (* Harvey P. Dale, Nov 18 2021 *)

Prog

(PARI) s=[]; forprime(p=2, 3000, if(isprime(p+1234567890), s=concat(s, p))); s \\ Colin Barker, Apr 25 2014

Crossrefs

Cf. A000040, A002496, A028871, A050289, A056899, A234812, A235640, A240587.

Sequence in context: A158710 A103805 A333327 * A156567 A231332 A243137

Adjacent sequences: A241525 A241526 A241527 * A241529 A241530 A241531

Keyword

nonn

Author

K. D. Bajpai, Apr 25 2014

Status

approved