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

Author

Amarnath Murthy, Nov 24 2003

Keywords

• base
• nonn

Crossrefs

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

Programs

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 *)

Extensions

More terms from Ryan Propper, Sep 14 2005