A244064 Primes which are concatenation of prime(n), prime(10n) and prime(100n).
4173310657, 97158322307, 137221330559, 223341346447, 251390752919, 271423157191, 367552173973, 433647386371, 487729796581, 491741197813, 5097643101281, 6018831116447, 6179109119983, 6439439124577, 70910343136379, 71910459137477, 82311933155327, 82912109157739
Offset: 1
Examples
4173310657 is in the sequence because concatenation of [prime(13), prime(130), prime(1300)] = 4173310657, which is a prime. 97158322307 is in the sequence because concatenation of [prime(25), prime(250), prime(2500)] = 97158322307, which is a prime.
Links
- K. D. Bajpai, Table of n, a(n) for n = 1..11139
Programs
-
Maple
with(numtheory): with(StringTools): A244064:= proc() local a,b,c,m; a:=ithprime(n); b:=ithprime(10*n); c:=ithprime(100*n);m:=parse(cat(a,b,c)); if isprime(m) then RETURN (m); fi; end: seq(A244064 (), n=1..300);
-
Mathematica
A244064 = {}; Do[t = FromDigits[Flatten[IntegerDigits /@ {Prime[n], Prime[10 n], Prime[100 n]}]]; If[PrimeQ[t], AppendTo[A244064, t]], {n, 300}]; A244064