OFFSET
1,1
MATHEMATICA
6#+1&/@Select[Range[12121*10^4], AllTrue[{#, 6#+1}, PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Jun 15 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy and Meenakshi Srikanth (menakan_s(AT)yahoo.com), May 09 2003
EXTENSIONS
More terms from Ray Chandler, May 21 2003
STATUS
approved