OFFSET
1,2
LINKS
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 8; Select[Range[0, 3*10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
EXTENSIONS
a(14)-a(19) from Giovanni Resta, Aug 29 2018
STATUS
approved