OFFSET
1,3
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..46
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 5; Select[Range[0, 10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Giovanni Resta, Aug 28 2018
STATUS
approved