Revision History for A015508
(Underlined text is an addition;
strikethrough text is a deletion.)
Showing entries 1-10
| older changes
|
| |
| |
| |
|
|
#13 by OEIS Server at Mon May 01 18:33:15 EDT 2023
|
|
| LINKS
|
G. C. Greubel, <a href="/A015508/b015508_1.txt">Table of n, a(n) for n = 1..49</a>
|
| |
| |
|
|
#12 by Peter Luschny at Mon May 01 18:33:15 EDT 2023
| |
| |
|
|
Discussion
|
| Mon May 01
| 18:33
| OEIS Server: Installed first b-file as b015508.txt.
|
| |
| |
|
|
#11 by Michel Marcus at Mon May 01 02:21:30 EDT 2023
| |
| |
| |
|
|
#10 by G. C. Greubel at Sun Apr 30 23:35:53 EDT 2023
| |
| |
| |
|
|
#9 by G. C. Greubel at Sun Apr 30 23:33:32 EDT 2023
|
|
| NAME
|
a(1)=) = 1, a(n) = sumSum_{k=1}^{k=..n-1} (} ((7^k- - 1)/6 )*a(k).
|
|
| LINKS
|
G. C. Greubel, <a href="/A015508/b015508_1.txt">Table of n, a(n) for n = 1..49</a>
|
|
| MATHEMATICA
|
a[n_, m_]:= a[n, m]= If[n<3, 1, (m^(n-1) + m-2)*a[n-1, m]/(m-1)];
Table[a[n, 7], {n, 30}] (* G. C. Greubel, Apr 30 2023 *)
|
|
| PROG
|
(Magma) I:=[1, 1, 9]; [) [n le 32 select 1 I[n] else ((7^(n-1) + 5)/6) * )*Self(n-1): n in [1..15]]; // Vincenzo Librandi, Nov 12 2012
(SageMath)
@CachedFunction # a = A015508
def a(n, m): return 1 if (n<3) else (m^(n-1)+m-2)*a(n-1, m)/(m-1)
[a(n, 7) for n in range(1, 31)] # G. C. Greubel, Apr 30 2023
|
|
| CROSSREFS
|
Sequences with the recurrence a(n) = (m^(n-1) + m-2)*a(n-1)/(m-1): A036442 (m=2), A015502 (m=3), A015503 (m=4), A015506 (m=5), A015507 (m=6), this sequence (m=7), A015509 (m=8), A015511 (m=9), A015512 (m=10), A015513 (m=11), A015515 (m=12).
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#8 by Charles R Greathouse IV at Thu Sep 08 08:44:40 EDT 2022
|
|
| PROG
|
(MAGMAMagma) I:=[1, 1, 9]; [n le 3 select I[n] else ((7^(n-1) + 5)/6) * Self(n-1): n in [1..15]]; // Vincenzo Librandi, Nov 12 2012
|
| |
|
|
Discussion
|
| Thu Sep 08
| 08:44
| OEIS Server: https://oeis.org/edit/global/2944
|
| |
| |
|
|
#7 by Joerg Arndt at Mon Nov 12 07:20:08 EST 2012
| |
| |
| |
|
|
#6 by Vincenzo Librandi at Mon Nov 12 05:00:09 EST 2012
| |
| |
| |
|
|
#5 by Vincenzo Librandi at Mon Nov 12 05:00:01 EST 2012
|
|
| DATA
|
1, 1, 9, 522, 209322, 586520244, 11501075464596, 1578614616119517768, 1516734501782248791012168, 10200952598655696033329019125136, 480252779391204632593567857157274897424, 158269444415262012661462389451687149577571916192
|
|
| FORMULA
|
a(n) = ((7^(n-1) + 5)/6) * a(n-1). - Vincenzo Librandi, Nov 12 2012
|
|
| PROG
|
(MAGMA) I:=[1, 1, 9]; [n le 3 select I[n] else ((7^(n-1) + 5)/6) * Self(n-1): n in [1..15]]; // Vincenzo Librandi, Nov 12 2012
|
|
| STATUS
|
approved
editing
|
| |
| |
|
|
#4 by Russ Cox at Fri Mar 30 17:20:39 EDT 2012
| |
| |
|
|
Discussion
|
| Fri Mar 30
| 17:20
| OEIS Server: https://oeis.org/edit/global/117
|
| |
| |
|
|
