|
|
A146883
|
|
a(n) = 6 * Sum_{m=0..n} 5^m.
|
|
3
|
|
|
6, 36, 186, 936, 4686, 23436, 117186, 585936, 2929686, 14648436, 73242186, 366210936, 1831054686, 9155273436, 45776367186, 228881835936, 1144409179686, 5722045898436, 28610229492186, 143051147460936, 715255737304686
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,1
|
|
LINKS
|
|
|
FORMULA
|
a(n) = Sum_{m=0..n} 6*5^m.
E.g.f.: (3/2)*(5*exp(5*x) - exp(x)). - G. C. Greubel, Oct 12 2022
|
|
MATHEMATICA
|
a[n_]:= 6*Sum[5^m, {m, 0, n}]; Table[a[n], {n, 0, 30}]
(* Second programs: *)
Array[3(5^(#+1) -1)/2 &, 21, 0] (* or *)
CoefficientList[Series[6/((1-x)(1-5x)), {x, 0, 20}], x] (* Michael De Vlieger, Nov 02 2017 *)
LinearRecurrence[{6, -5}, {6, 36}, 30] (* Harvey P. Dale, Jan 07 2024 *)
|
|
PROG
|
(Magma) [n le 2 select 6^n else 6*Self(n-1) -5*Self(n-2): n in [1..31]]; // G. C. Greubel, Oct 12 2022
(SageMath) [3*(5^(n+1) -1)/2 for n in range(41)] # G. C. Greubel, Oct 12 2022
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,easy,less
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|