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,more,nonn
AUTHOR
Amarnath Murthy, Apr 02 2003
EXTENSIONS
a(8) and a(9) from R. J. Mathar, Jul 15 2007
a(10) from Donovan Johnson, Mar 26 2011
STATUS
approved