OFFSET
1,1
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
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 24 2003
EXTENSIONS
Corrected and extended by Ryan Propper, Sep 02 2005
STATUS
approved