OFFSET
0,2
COMMENTS
a(7) must be larger than 5*10^41. - Patrick De Geest
LINKS
MATHEMATICA
smpt[n_]:=Module[{k=2}, While[!PalindromeQ[k*n]||!OddQ[Sqrt[1+8*k*n]], k++]; k*n]; NestList[smpt, 1, 5] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jan 01 2019 *)
CROSSREFS
KEYWORD
nonn,base,hard
AUTHOR
Amarnath Murthy, Mar 30 2002
EXTENSIONS
a(6) from Patrick De Geest, Jun 11 2003
STATUS
approved