A089788 Primes of the form prime(nk) followed by prime(k).

73, 6113, 193, 293, 373, 433, 26317, 613, 94153, 38917, 2237, 1013, 43313, 76123, 82723, 76919, 70117, 169943, 1733, 4337, 1933, 1993, 421189, 2293, 2393, 195131, 2633, 2713, 86311, 510179, 94111, 97711, 3373, 129113, 3593, 3733, 3833, 268729

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A089782, A089783, A089784, A089785, A089786, A089787, A089789.

Sequence in context: A183540 A022242 A015260 * A292013 A192765 A177094

Adjacent sequences: A089785 A089786 A089787 * A089789 A089790 A089791

Keyword

base,nonn

Author

Amarnath Murthy, Nov 24 2003

Extensions

More terms from Ryan Propper, Sep 14 2005

Status

approved