OFFSET
1,1
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).
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
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