A089782 Smallest prime of the form prime(k) concatenated with prime(k+n).

23, 37, 311, 211, 317, 523, 3767, 223, 229, 337, 1153, 241, 347, 353, 359, 1783, 367, 47137, 271, 379, 383, 283, 397, 53173, 5107, 17137, 3109, 41179, 2113, 11149, 2131, 2137, 29191, 19181, 11173, 3163, 3167, 5179, 19211, 2179, 3191, 5197, 7211, 13229

Offset

1,1

Links

Table of n, a(n) for n=1..44.

Example

a(4) = 211 = prime(1) followed by prime(1+4).

Mathematica

c[r_, s_] := ToExpression[ToString[r] <> ToString[s]]; Do[k = 1; While[ !PrimeQ[c[Prime[k], Prime[n + k]]], k++ ]; Print[c[Prime[k], Prime[n + k]]], {n, 1, 100}] (* Ryan Propper, Sep 02 2005 *)

Crossrefs

Cf. A089783.

Sequence in context: A133957 A133980 A090312 * A113893 A146390 A233385

Adjacent sequences: A089779 A089780 A089781 * A089783 A089784 A089785

Keyword

base,nonn

Author

Amarnath Murthy, Nov 24 2003

Extensions

Corrected and extended by Ryan Propper, Sep 02 2005

Status

approved