OFFSET
1,2
LINKS
MATHEMATICA
palQ[n_]:=Module[{id=IntegerDigits[n^2+3n+1]}, id==Reverse[id]]; Select[Range[240000], palQ] (* Harvey P. Dale, Apr 17 2012 *)
Select[Range[1173000], PalindromeQ[#^2+3#+1]&] (* Harvey P. Dale, Jun 09 2022 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Extended and definition corrected by T. D. Noe, Apr 17 2012
STATUS
approved