The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A185364

Not necessarily connected 6-regular simple graphs on n vertices with girth at least 4.
(history; published version)

#18 by Michel Marcus at Wed Mar 18 09:00:19 EDT 2020

STATUS

reviewed

approved

#17 by Joerg Arndt at Wed Mar 18 07:49:38 EDT 2020

STATUS

proposed

reviewed

#16 by Jean-François Alcover at Wed Mar 18 06:59:13 EDT 2020

STATUS

editing

proposed

#15 by Jean-François Alcover at Wed Mar 18 06:59:08 EDT 2020

MATHEMATICA

etr[f_] := Module[{b}, b[n_] := b[n] = If[n == 0, 1, Sum[Sum[d f[d], {d, Divisors[j]}] b[n - j], {j, 1, n}]/n]; b];

a = etr[A058276[[# + 1]]&];

(* EulerTransform is defined in A005195 *)

a /@ Range[0, LengthEulerTransform[Rest @ A058276] - 1] (* Jean-François Alcover, Dec 04 2019 , updated Mar 18 2020 *)

STATUS

approved

editing

#14 by Susanna Cuyler at Wed Dec 04 21:03:17 EST 2019

STATUS

proposed

approved

#13 by Jean-François Alcover at Wed Dec 04 09:01:57 EST 2019

STATUS

editing

proposed

#12 by Jean-François Alcover at Wed Dec 04 09:01:54 EST 2019

MATHEMATICA

A058276 = Cases[Import["https://oeis.org/A058276/b058276.txt", "Table"], {_, _}][[All, 2]];

etr[f_] := Module[{b}, b[n_] := b[n] = If[n == 0, 1, Sum[Sum[d f[d], {d, Divisors[j]}] b[n - j], {j, 1, n}]/n]; b];

a = etr[A058276[[# + 1]]&];

a /@ Range[0, Length[A058276] - 1] (* Jean-François Alcover, Dec 04 2019 *)

STATUS

approved

editing

#11 by Charles R Greathouse IV at Thu May 01 02:40:01 EDT 2014

AUTHOR

_Jason Kimberley, _, Dec 07 2011

Discussion

Thu May 01

02:40

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

#10 by Joerg Arndt at Sat Jan 19 11:37:57 EST 2013

STATUS

proposed

approved

#9 by Jason Kimberley at Sat Jan 19 09:52:04 EST 2013

STATUS

editing

proposed