A054609 a(n) = Sum_{d|10} phi(d)*n^(10/d).
0, 10, 1080, 59340, 1049680, 9768870, 60474120, 282492280, 1073774880, 3486843810, 10000100440, 25937586180, 61917613680, 137858863870, 289255193640, 576651150960, 1099512677440, 2015995321530, 3570469117560, 6131068735420, 10240003201680, 16679885064150
Offset: 0
Links
- T. D. Noe, Table of n, a(n) for n = 0..1000
- Index entries for linear recurrences with constant coefficients, signature (11,-55,165,-330,462,-462,330,-165,55,-11,1).
Crossrefs
Row n=10 of A185651.
Programs
-
Mathematica
Table[DivisorSum[10, EulerPhi[#] n^(10/#) &], {n, 0, 100}] (* T. D. Noe, Mar 27 2012 *)
Formula
G.f.: -10*x*(100*x^8 +4783*x^7 +45547*x^6 +130963*x^5 +131119*x^4 +45469*x^3 +4801*x^2 +97*x +1) / (x -1)^11. [Colin Barker, Dec 21 2012]