OFFSET
1,2
MATHEMATICA
nxt[n_]:=Module[{k=2}, While[!PalindromeQ[k*n-1], k++]; k*n-1]; Join[{1}, NestList[ nxt, 2, 8]] (* Harvey P. Dale, Oct 05 2018 *)
CROSSREFS
KEYWORD
base,nonn,more
AUTHOR
Amarnath Murthy, Apr 02 2003
EXTENSIONS
a(8)-a(9) from R. J. Mathar, Jul 15 2007
a(10) from Donovan Johnson, Mar 26 2011
a(11) from Max Alekseyev, Sep 14 2025
STATUS
approved
