The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A072337

Inverse EULER transform of A064831 (with its initial 1 omitted).
(history; published version)

#49 by Vaclav Kotesovec at Sun Aug 19 10:45:22 EDT 2018

STATUS

editing

approved

#48 by Vaclav Kotesovec at Sun Aug 19 10:44:44 EDT 2018

FORMULA

a(n) ~ ((1 + sqrt(5))/2)^(2*n) / n. - Vaclav Kotesovec, Aug 19 2018

STATUS

approved

editing

#47 by Bruno Berselli at Sun Aug 19 10:42:27 EDT 2018

STATUS

proposed

approved

#46 by Jean-François Alcover at Sun Aug 19 10:00:10 EDT 2018

STATUS

editing

proposed

#45 by Jean-François Alcover at Sun Aug 19 10:00:04 EDT 2018

MATHEMATICA

mob[m_, n_] := If[Mod[m, n] == 0, MoebiusMu[m/n], 0];

EULERi[b_] := Module[{a, c, i, d}, c = {}; For[i = 1, i <= Length[b], i++, c = Append[c, i*b[[i]] - Sum[c[[d]]*b[[i - d]], {d, 1, i - 1}]]]; a = {}; For[i = 1, i <= Length[b], i++, a = Append[a, (1/i)*Sum[mob[i, d]*c[[d]], {d, 1, i}]]]; Return[a]];

Join[{1}, EULERi[LinearRecurrence[{3, 0, -3, 1}, {3, 9, 24, 64}, 31]]] (* Jean-François Alcover, Aug 19 2018 *)

STATUS

approved

editing

#44 by N. J. A. Sloane at Fri Jan 05 15:04:32 EST 2018

STATUS

reviewed

approved

#43 by Joerg Arndt at Fri Jan 05 13:11:11 EST 2018

STATUS

proposed

reviewed

#42 by Jon E. Schoenfield at Sun Dec 03 21:34:28 EST 2017

STATUS

editing

proposed

Discussion

Fri Jan 05

13:11

Joerg Arndt: Thanks and apologies for the delay in editing!

#41 by Jon E. Schoenfield at Sun Dec 03 21:34:23 EST 2017

COMMENTS

Apparently the same as A032170 for n > 2. - Ralf Stephan, Feb 01 2004

STATUS

proposed

editing

#40 by Michel Marcus at Sun Dec 03 13:00:12 EST 2017

STATUS

editing

proposed