OFFSET
1,1
MATHEMATICA
4#+1&/@Select[Range[1500000], AllTrue[{#, 4#+1}, PalindromeQ]&] (* Requires Mathematica version 10 or later *) (* Harvey P. Dale, Apr 06 2017 *)
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