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

 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.

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