OFFSET
1,2
MATHEMATICA
a=1; Print[a]; For[n = 2, n <= 15, n++, {an = a; k = 2; str = ToString[k*an]; rstr = StringReverse[str]; While[str != rstr, {k = k + 1; str = ToString[k*an]; rstr = StringReverse[str]; If[k*an > 10^20, {Print["Too big"]; Abort[]}]}]; a := k*an; Print[k, " ", a]; }]
spm[n_]:=Module[{k=2}, While[!PalindromeQ[k*n], k++]; k*n]; NestList[spm, 1, 15] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 02 2019 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Mar 01 2002
EXTENSIONS
Extended and edited by John W. Layman, Mar 18 2002
Last two terms from David W. Wilson and Patrick De Geest, Mar 30 2002
STATUS
approved