|
|
A027712
|
|
Numbers k such that k^2+k+2 is a palindrome.
|
|
4
|
|
|
0, 1, 2, 4, 6, 14, 15, 21, 50, 92, 201, 203, 292, 479, 897, 1424, 1530, 1654, 2001, 2106, 2183, 16780, 20001, 20993, 28377, 89777, 200001, 219083, 501474, 1620660, 1651754, 2000001, 14842995, 17101809, 20000001, 21147906, 21855108, 22012038, 29287052
(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 + 2; Select[Range[0, 10^5], palQ@ f@ # &] (* Giovanni Resta, Aug 29 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|