A086143 Palindromes of the form n^3 + n^2 + n + 1.

4, 585, 1111, 99499, 1010101, 1001001001, 1000100010001, 1000010000100001, 1000001000001000001, 1000000100000010000001, 1000000010000000100000001, 1000000001000000001000000001, 1000000000100000000010000000001

Offset: 1

Author

Karl Goiser (kggoiser(AT)utas.edu.au), Aug 24 2003

Keywords

• base
• nonn

Comments

Values of n are 1, 8, 10, 46, 100, 1000, etc.

Links

• Index entries for linear recurrences with constant coefficients, signature (1111,-112110,1111000,-1000000).

Crossrefs

Sequence A028414 deals with n^2 + n + 1.

Programs

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 *)

Extensions

More terms from Robert G. Wilson v, Sep 01 2003

More terms fdrom Harvey P. Dale, Apr 14 2016