A095198 a(1) = 1, a(n+1) = prime(n)*Digit reversal of a(n).
1, 2, 6, 30, 21, 132, 3003, 51051, 285285, 13399386, 1983580599, 308476470621, 4664762967711, 48285399661224, 1815318072406212, 99924007282353507, 3738372398312278947, 442424606197031564007, 42728372978287991878884
Offset: 1
Crossrefs
Cf. A095197.
Programs
-
Mathematica
Transpose[NestList[{First[#]+1,Prime[First[#]]FromDigits[Reverse[ IntegerDigits[Last[#]]]]}&,{1,1},25]][[2]] (* Harvey P. Dale, Mar 02 2012 *)
Extensions
Corrected and extended by Rick L. Shepherd, Jun 07 2004