The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A205967

a(n) = Fibonacci(n)*A008653(n) for n>=1, with a(0)=1, where A008653 is the theta series of direct sum of 2 copies of hexagonal lattice.
(history; published version)

#17 by Bruno Berselli at Wed Jul 18 03:02:05 EDT 2018

STATUS

reviewed

approved

#16 by Michel Marcus at Wed Jul 18 01:51:38 EDT 2018

STATUS

proposed

reviewed

#15 by G. C. Greubel at Tue Jul 17 22:51:42 EDT 2018

STATUS

editing

proposed

#14 by G. C. Greubel at Tue Jul 17 22:51:36 EDT 2018

LINKS

G. C. Greubel, <a href="/A205967/b205967.txt">Table of n, a(n) for n = 0..2500</a>

MATHEMATICA

b[n_] := If[n < 1, Boole[n == 0], 12 Sum[If[Mod[d, 3] > 0, d, 0], {d, Divisors@n}]]; Table[If[n == 0, 1, b[n]*Fibonacci[n]], {n, 0, 50}] (* G. C. Greubel, Jul 17 2018 *)

STATUS

approved

editing

#13 by Michel Marcus at Wed Jul 05 02:03:42 EDT 2017

STATUS

reviewed

approved

#12 by Joerg Arndt at Wed Jul 05 02:00:11 EDT 2017

STATUS

proposed

reviewed

#11 by Jean-François Alcover at Wed Jul 05 01:39:05 EDT 2017

STATUS

editing

proposed

#10 by Jean-François Alcover at Wed Jul 05 01:39:00 EDT 2017

MATHEMATICA

terms = 34; s = 1 + 12*Sum[Fibonacci[n]*KroneckerSymbol[n, 3]^2*n*(x^n/(1 - LucasL[n]*x^n + (-1)^n*x^(2*n))), {n, 1, terms}] + O[x]^terms; CoefficientList[s, x] (* Jean-François Alcover, Jul 05 2017 *)

STATUS

approved

editing

#9 by Russ Cox at Fri Mar 30 18:37:34 EDT 2012

AUTHOR

_Paul D. Hanna (pauldhanna(AT)juno.com), _, Feb 04 2012

Discussion

Fri Mar 30

18:37

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

#8 by Paul D. Hanna at Sat Mar 10 10:12:23 EST 2012

STATUS

editing

approved