login
A089788
Primes of the form prime(nk) followed by prime(k).
0
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
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 *)
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 24 2003
EXTENSIONS
More terms from Ryan Propper, Sep 14 2005
STATUS
approved