This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A039751 #18 Nov 10 2019 01:39:20 %S A039751 0,0,0,0,3,16,112,927,11995,273438,12000099,1018972683,165091020547, %T A039751 50502030251549,29054155647335623,31426485969699328399, %U A039751 64001015704526239877379,245935864153532913256188013,1787577725145611700213913518632,24637809253125004524376347209365832 %N A039751 Number of n-node graphs containing a 4-cycle. %D A039751 F. Harary and E. M. Palmer, Graphical Enumeration, Academic Press, NY, 1973, p. 228. %F A039751 a(n) = A000088(n) - A006786(n). - _Falk Hüffner_, Nov 27 2015 %t A039751 A000088 = Cases[Import["https://oeis.org/A000088/b000088.txt", "Table"], {_, _}][[All, 2]]; %t A039751 A006786 = Cases[Import["https://oeis.org/A006786/b006786.txt", "Table"], {_, _}][[All, 2]]; %t A039751 a[n_] := If[n < 2, 0, A000088[[n + 1]] - A006786[[n]]]; %t A039751 a /@ Range[0, 19] (* _Jean-François Alcover_, Nov 10 2019 *) %K A039751 nonn,nice %O A039751 0,5 %A A039751 _N. J. A. Sloane_ %E A039751 Using formula, a(0) and a(6) corrected and more terms added by _Falk Hüffner_, Nov 27 2015 %E A039751 a(18)-a(19) from A000088 and A006786 by _Jean-François Alcover_, Nov 10 2019