login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A339025 Sum of n-th powers of entries in the n-th row of Stern's triangle (A337277). 1
1, 3, 13, 147, 4277, 314403, 58215317, 27104094867, 31830051961045, 94398513955640643, 709919097675516974293, 13569078873978509433342387, 661668739571948876787281152277, 82526665791586458931717457637364323, 26412772665617176235336349304356162390677 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,2

LINKS

Alois P. Heinz, Table of n, a(n) for n = 0..28

MAPLE

b:= proc(n) option remember; `if`(n=0, 1, (h-> [1, h[1], seq(

      [h[i-1]+h[i], h[i]][], i=2..nops(h)), 1][])([b(n-1)]))

    end:

a:= proc(n) option remember; add(i^n, i=[b(n)]) end:

seq(a(n), n=0..15);

MATHEMATICA

nmax = 15;

T = Nest[Append[#, Flatten@Join[{1}, If[Length@# > 1, Map[{#1, #1 + #2}& @@ #&, Partition[#[[-1]], 2, 1]], {}], {#[[-1, -1]]}, {1}]]&, {{1}}, nmax];

a[n_] := T[[n+1]]^n // Total;

Table[a[n], {n, 0, nmax}] (* Jean-Fran├žois Alcover, May 30 2022, after Michael De Vlieger in A337277 *)

CROSSREFS

Cf. A337277.

Sequence in context: A001150 A108554 A287029 * A317074 A230036 A014376

Adjacent sequences:  A339022 A339023 A339024 * A339026 A339027 A339028

KEYWORD

nonn

AUTHOR

Alois P. Heinz, Nov 19 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified July 2 10:07 EDT 2022. Contains 355004 sequences. (Running on oeis4.)