OFFSET
1,2
MATHEMATICA
Transpose[NestList[{First[#]+1, Prime[First[#]]FromDigits[Reverse[ IntegerDigits[Last[#]]]]}&, {1, 1}, 25]][[2]] (* Harvey P. Dale, Mar 02 2012 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Jun 05 2004
EXTENSIONS
Corrected and extended by Rick L. Shepherd, Jun 07 2004
STATUS
approved