|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,3
|
|
LINKS
|
|
|
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
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|