OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..100
MATHEMATICA
nxt[{p_, a_}]:=Module[{k=a+1}, While[!PalindromeQ[k]||!PrimeQ[p*k-1], k++]; {p*k, k}]; NestList[nxt, {3, 3}, 50][[All, 2]] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, May 22 2021 *)
CROSSREFS
KEYWORD
nice,nonn,base
AUTHOR
Felice Russo, Dec 21 1999
STATUS
approved