Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #7 Apr 14 2016 10:44:45
%S 4,585,1111,99499,1010101,1001001001,1000100010001,1000010000100001,
%T 1000001000001000001,1000000100000010000001,1000000010000000100000001,
%U 1000000001000000001000000001,1000000000100000000010000000001
%N Palindromes of the form n^3 + n^2 + n + 1.
%C Values of n are 1, 8, 10, 46, 100, 1000, etc.
%H <a href="/index/Rec#order_04">Index entries for linear recurrences with constant coefficients</a>, signature (1111,-112110,1111000,-1000000).
%t f[n_] := (n^3 + n^2 + n + 1); a = Select[ Range[10^7], FromDigits[ Reverse[ IntegerDigits[ f[ # ]]]] == f[ # ] & ]; a^3 + a^2 + a + 1
%t 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 *)
%Y Sequence A028414 deals with n^2 + n + 1.
%K base,nonn
%O 1,1
%A Karl Goiser (kggoiser(AT)utas.edu.au), Aug 24 2003
%E More terms from _Robert G. Wilson v_, Sep 01 2003
%E More terms fdrom _Harvey P. Dale_, Apr 14 2016