This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A161710 #29 Sep 08 2022 08:45:45
%S A161710 1,2,3,4,6,8,12,24,39,-2,-295,-1308,-3980,-9996,-22150,-44808,-84483,
%T A161710 -150534,-256001,-418588,-661806,-1016288,-1521288,-2226376,-3193341,
%U A161710 -4498314,-6234123,-8512892,-11468896,-15261684,-20079482,-26142888
%N A161710 a(n) = (-6*n^7 + 154*n^6 - 1533*n^5 + 7525*n^4 - 18879*n^3 + 22561*n^2 - 7302*n + 2520)/2520.
%C A161710 {a(k): 0 <= k < 8} = divisors of 24:
%C A161710 a(n) = A027750(A006218(23) + k + 1), 0 <= k < A000005(24).
%H A161710 Vincenzo Librandi, <a href="/A161710/b161710.txt">Table of n, a(n) for n = 0..10000</a>
%H A161710 Reinhard Zumkeller, <a href="/A161700/a161700.txt">Enumerations of Divisors</a>
%H A161710 <a href="/index/Rec#order_08">Index entries for linear recurrences with constant coefficients</a>, signature (8,-28,56,-70,56,-28,8,-1).
%F A161710 a(n) = C(n,0) + C(n,1) + C(n,4) - 3*C(n,5) + 8*C(n,6) - 12*C(n,7).
%F A161710 G.f.: (1-6*x+15*x^2-20*x^3+16*x^4-12*x^5+18*x^6-24*x^7)/(1-x)^8. - _Bruno Berselli_, Jul 17 2011
%F A161710 a(0)=1, a(1)=2, a(2)=3, a(3)=4, a(4)=6, a(5)=8, a(6)=12, a(7)=24, a(n)=8*a(n-1)-28*a(n-2)+56*a(n-3)-70*a(n-4)+56*a(n-5)-28*a(n-6)+ 8*a(n-7)- a(n-8). - _Harvey P. Dale_, Jul 15 2012
%e A161710 Differences of divisors of 24 to compute the coefficients of their interpolating polynomial, see formula:
%e A161710 1 ... 2 ... 3 ... 4 ... 6 ... 8 .. 12 .. 24
%e A161710 .. 1 ... 1 ... 1 ... 2 ... 2 ... 4 .. 12
%e A161710 ..... 0 ... 0 ... 1 ... 0 ... 2 ... 8
%e A161710 ........ 0 ... 1 .. -1 ... 2 ... 6
%e A161710 ........... 1 .. -2 ... 3 ... 4
%e A161710 ............. -3 ... 5 ... 1
%e A161710 ................. 8 .. -4
%e A161710 .................. -12.
%t A161710 Table[(-6n^7+154n^6-1533n^5+7525n^4-18879n^3+22561n^2-7302n+2520)/2520,{n,0,40}] (* or *) LinearRecurrence[{8,-28,56,-70,56,-28,8,-1},{1,2,3,4,6,8,12,24},40] (* _Harvey P. Dale_, Jul 15 2012 *)
%o A161710 (Magma) [(-6*n^7 + 154*n^6 - 1533*n^5 + 7525*n^4 - 18879*n^ 3 + 22561*n^2 - 7302*n + 2520)/2520: n in [0..40]]; // _Vincenzo Librandi_, Jul 17 2011
%o A161710 (Python)
%o A161710 A161710_list, m = [1], [-12, 80, -223, 333, -281, 127, -23, 1]
%o A161710 for _ in range(1,10**2):
%o A161710 for i in range(7):
%o A161710 m[i+1]+= m[i]
%o A161710 A161710_list.append(m[-1]) # _Chai Wah Wu_, Nov 09 2014
%o A161710 (PARI) a(n)=(-6*n^7+154*n^6-1533*n^5+7525*n^4-18879*n^3+22561*n^2-7302*n+2520)/2520 \\ _Charles R Greathouse IV_, Sep 24 2015
%Y A161710 Cf. A005408, A000124, A016813, A086514, A000125, A058331, A002522, A161701, A161702, A161703, A000127, A161704, A161706, A161707, A161708, A080856, A161711, A161712, A161713, A161715, A006261, A018253, A161700, A161856.
%K A161710 sign,easy
%O A161710 0,2
%A A161710 _Reinhard Zumkeller_, Jun 17 2009