The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A170754 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A170754

Expansion of g.f.: (1+x)/(1-34*x).
(history; published version)

#21 by Charles R Greathouse IV at Thu Sep 08 08:45:49 EDT 2022

PROG

(MAGMAMagma) k:=35; [1] cat [k*(k-1)^(n-1): n in [1..25]]; // G. C. Greubel, Oct 09 2019

Discussion

Thu Sep 08

08:45

OEIS Server: https://oeis.org/edit/global/2944

#20 by Charles R Greathouse IV at Thu Jul 22 10:32:34 EDT 2021

STATUS

editing

approved

#19 by Charles R Greathouse IV at Thu Jul 22 10:32:32 EDT 2021

KEYWORD

nonn,easy

STATUS

approved

editing

#18 by Paul D. Hanna at Thu Oct 10 11:58:30 EDT 2019

STATUS

reviewed

approved

#17 by Michel Marcus at Thu Oct 10 00:07:50 EDT 2019

STATUS

proposed

reviewed

#16 by Stefano Spezia at Wed Oct 09 15:30:57 EDT 2019

STATUS

editing

proposed

#15 by Stefano Spezia at Wed Oct 09 15:30:54 EDT 2019

FORMULA

E.g.f.: (1/34)*(35*exp(34*x) - 1). - Stefano Spezia, Oct 09 2019

STATUS

proposed

editing

#14 by G. C. Greubel at Wed Oct 09 14:55:17 EDT 2019

STATUS

editing

proposed

#13 by G. C. Greubel at Wed Oct 09 14:54:37 EDT 2019

NAME

GExpansion of g.f.: (1+x)/(1-34*x).

LINKS

G. C. Greubel, <a href="/A170754/b170754.txt">Table of n, a(n) for n = 0..649</a>

FORMULA

a(n)= Sum_{k, =0<=k<=..n} A097805(n,k)*(-1)^(n-k)*35^k. [From _- _Philippe Deléham_, Dec 04 2009]

a(0) = 1; for n>0, a(n) = 35*34^(n-1). [From _- _Vincenzo Librandi_, Dec 05 2009]

MAPLE

k:=35; seq(`if`(n=0, 1, k*(k-1)^(n-1)), n = 0..25); # G. C. Greubel, Oct 09 2019

MATHEMATICA

With[{k = 35}, Table[If[n==0, 1, k*(k-1)^(n-1)], {n, 0, 25}]] (* G. C. Greubel, Oct 09 2019 *)

PROG

(PARI) vector(26, n, k=35; if(n==1, 1, k*(k-1)^(n-2))) \\ G. C. Greubel, Oct 09 2019

(MAGMA) k:=35; [1] cat [k*(k-1)^(n-1): n in [1..25]]; // G. C. Greubel, Oct 09 2019

(Sage) k=35; [1]+[k*(k-1)^(n-1) for n in (1..25)] # G. C. Greubel, Oct 09 2019

(GAP) k:=35;; Concatenation([1], List([1..25], n-> k*(k-1)^(n-1) )); # G. C. Greubel, Oct 09 2019

CROSSREFS

Cf. A003945.

STATUS

approved

editing

#12 by Ray Chandler at Tue Nov 15 13:21:23 EST 2016

STATUS

editing

approved