[go: up one dir, main page]

login
A028413
Numbers k such that k^2 + k + 1 is a palindrome.
3
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,3
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 *)
CROSSREFS
KEYWORD
nonn,base
EXTENSIONS
More terms from Giovanni Resta, Aug 28 2018
STATUS
approved