login
A086143
Palindromes of the form n^3 + n^2 + n + 1.
0
4, 585, 1111, 99499, 1010101, 1001001001, 1000100010001, 1000010000100001, 1000001000001000001, 1000000100000010000001, 1000000010000000100000001, 1000000001000000001000000001, 1000000000100000000010000000001
OFFSET
1,1
COMMENTS
Values of n are 1, 8, 10, 46, 100, 1000, etc.
MATHEMATICA
f[n_] := (n^3 + n^2 + n + 1); a = Select[ Range[10^7], FromDigits[ Reverse[ IntegerDigits[ f[ # ]]]] == f[ # ] & ]; a^3 + a^2 + a + 1
Select[Table[n^3+n^2+n+1, {n, 10^7}], #==IntegerReverse[#]&] (* The program uses the IntegerReverse function from Mathematica version 10 *) (* Harvey P. Dale, Apr 14 2016 *)
CROSSREFS
Sequence A028414 deals with n^2 + n + 1.
Sequence in context: A177963 A102201 A102204 * A123657 A195580 A069641
KEYWORD
base,nonn
AUTHOR
Karl Goiser (kggoiser(AT)utas.edu.au), Aug 24 2003
EXTENSIONS
More terms from Robert G. Wilson v, Sep 01 2003
More terms fdrom Harvey P. Dale, Apr 14 2016
STATUS
approved