OFFSET
1,3
COMMENTS
Includes 2*10^k for k>=2. - Robert Israel, Apr 16 2019
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..36
P. De Geest, Palindromic Quasi_Over_Squares of the form n^2+(n+X)
MATHEMATICA
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 4; Select[Range[0, 10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)
Select[Range[0, 3*10^6], PalindromeQ[#^2+#+4]&] (* The program generates the first 20 terms of the sequence. *) (* Harvey P. Dale, Jul 22 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Giovanni Resta, Aug 29 2018
STATUS
approved