OFFSET
1,1
MATHEMATICA
e[1] = 11; e[n_] := e[n] = Block[{k = 2}, While[k*e[n - 1] != ToExpression[ StringReverse[ ToString[k*e[n - 1]]]], k++ ]; k*e[n - 1]]; Table[e[n], {n, 1, 12}]
spm[a_]:=Module[{k=2}, While[!PalindromeQ[k*a], k++]; k*a]; NestList[spm, 11, 15] (* Harvey P. Dale, Mar 20 2026 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Robert G. Wilson v, Apr 19 2002
STATUS
approved
