OFFSET
1,1
MATHEMATICA
Select[3#+1&/@Select[Range[15*10^5], PalindromeQ], PalindromeQ] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jul 20 2020 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 09 2003
EXTENSIONS
Corrected and extended by Ray Chandler, May 21 2003
STATUS
approved