A028413 Numbers k such that k^2 + k + 1 is a palindrome.
0, 1, 2, 10, 18, 27, 100, 125, 173, 1000, 1120, 1184, 1355, 1836, 1876, 1961, 10000, 11915, 100000, 119084, 126935, 187876, 188348, 192383, 196813, 1000000, 1010200, 1190915, 1228425, 1780728, 1821636, 1975356, 10000000, 11842184, 12643549, 12783239, 18016058
Offset: 1
Links
- Giovanni Resta, Table of n, a(n) for n = 1..68
- P. De Geest, Palindromic quasi_over_squares of the form n^2+(n+1)
Programs
-
Mathematica
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 1; Select[Range[0, 10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)
Extensions
More terms from Giovanni Resta, Aug 28 2018