|
|
A028414
|
|
Palindromes of form k^2 + k + 1.
|
|
4
|
|
|
1, 3, 7, 111, 343, 757, 10101, 15751, 30103, 1001001, 1255521, 1403041, 1837381, 3372733, 3521253, 3847483, 100010001, 141979141, 10000100001, 14181118141, 16112621161, 35297579253, 35475157453, 37011411073, 38735553783, 1000001000001, 1020505050201
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
palQ[n_] := Block[{d = IntegerDigits[n]}, d == Reverse[d]]; f[n_] := n^2 + n + 1; Select[f@ Range[0, 10^5], palQ] (* Giovanni Resta, Aug 29 2018 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|