OFFSET
1,1
LINKS
Chai Wah Wu, Table of n, a(n) for n = 1..200
MATHEMATICA
nxt[{t_, a_}]:=Module[{k=a+1}, While[(!PalindromeQ[k])||CompositeQ[k*t+1], k++]; {t*k, k}]; NestList[nxt, {2, 2}, 40][[All, 2]] (* Harvey P. Dale, Apr 18 2022 *)
CROSSREFS
KEYWORD
easy,nice,nonn,base
AUTHOR
Felice Russo, Dec 21 1999
EXTENSIONS
Initial conditions added to description by Chai Wah Wu, Apr 16 2021
STATUS
approved