%I #65 Oct 04 2024 11:18:54
%S 1,5,31,121,341,781,1555,2801,4681,7381,11111,16105,22621,30941,41371,
%T 54241,69905,88741,111151,137561,168421,204205,245411,292561,346201,
%U 406901,475255,551881,637421,732541,837931,954305,1082401,1222981,1376831,1544761,1727605
%N a(n) = n^4 + n^3 + n^2 + n + 1.
%C a(n) = 11111 in base n.
%C a(n) = Phi_5(n), where Phi_k is the k-th cyclotomic polynomial.
%H Vincenzo Librandi, <a href="/A053699/b053699.txt">Table of n, a(n) for n = 0..1000</a>
%H Carlos M. da Fonseca and Anthony G. Shannon, <a href="https://doi.org/10.7546/nntdm.2024.30.3.491-498">A formal operator involving Fermatian numbers</a>, Notes Num. Theor. Disc. Math. (2024) Vol. 30, No. 3, 491-498.
%H Michael Penn, <a href="https://www.youtube.com/watch?v=AtGG8aU8vG0">What base makes me a perfect square??</a>, YouTube video, 2022.
%H <a href="/index/Cy#CyclotomicPolynomialsValuesAtX">Index to values of cyclotomic polynomials of integer argument</a>.
%H <a href="/index/Rec#order_05">Index entries for linear recurrences with constant coefficients</a>, signature (5,-10,10,-5,1).
%F a(n) = n^4 + n^3 + n^2 + n + 1 =(n^5-1)/(n-1).
%F G.f.: (1 + 16*x^2 + 6*x^3 + x^4)/(1-x)^5. - _Colin Barker_, Jan 10 2012
%F E.g.f.: exp(x)*(1 + 4*x + 11*x^2 + 7*x^3 + x^4). - _Stefano Spezia_, Oct 03 2024
%p A053699 := proc(n)
%p numtheory[cyclotomic](5,n) ;
%p end proc:
%p seq(A053699(n),n=0..20) ; # _R. J. Mathar_, Feb 07 2014
%t f[n_]:=((1+n+n^2+n^3+n^4));Table[f[n],{n,0,6!}] (* _Vladimir Joseph Stephan Orlovsky_, Mar 03 2010 *)
%t Join[{1},Table[Total[n^Range[0,4]],{n,40}]] (* _Harvey P. Dale_, Feb 02 2014 *)
%o (Magma) [n^4+n^3+n^2+n+1: n in [0..50]]; // _Vincenzo Librandi_, May 01 2011
%o (PARI) a(n)=polcyclo(5,n) \\ _Charles R Greathouse IV_, Jul 19 2011
%o (Maxima) A053699(n):=n^4 + n^3 + n^2 + n + 1$
%o makelist(A053699(n),n,0,30); /* _Martin Ettl_, Nov 07 2012 */
%Y 5th row of the array A055129.
%Y Cf. A104878.
%K nonn,easy
%O 0,2
%A _Henry Bottomley_, Mar 23 2000