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 A066395 #24 May 30 2025 11:01:50
%S A066395 1,-744,356652,-140361152,49336682190,-16114625669088,
%T A066395 4999042477430456,-1492669384085015040,432762759484818142437,
%U A066395 -122566701136436206749360,34058364214245581228710692,-9315629487329800685570383104,2514284824201628853303708453062
%N A066395 Expansion of reciprocal of j-function (see A000521).
%H A066395 Seiichi Manyama, <a href="/A066395/b066395.txt">Table of n, a(n) for n = 1..421</a>
%H A066395 Youssef Abdelaziz and Jean-Marie Maillard, <a href="https://arxiv.org/abs/1611.08493">Modular forms, Schwarzian conditions, and symmetries of differential equations in physics</a>, arXiv preprint arXiv:1611.08493 [math-ph], 2016.
%H A066395 Jean-Marie Maillard, <a href="https://arxiv.org/abs/2505.16873">Modular correspondences and replicable functions (unabridged version)</a>, arXiv:2505.16873 [math-ph], 2025. See pp. 6, 22-23.
%F A066395 a(n) ~ c * (-1)^(n+1) * exp(Pi*sqrt(3)*n) * n^2, where c = 4*Pi^12 / (27*Gamma(1/3)^18) = 0.00271122282373677410826992857036010754653235515106627... - _Vaclav Kotesovec_, Jun 28 2017, updated Mar 03 2018
%e A066395 q*(1 - 744*q + 356652*q^2 - 140361152*q^3 + 49336682190*q^4 - 16114625669088*q^5 + ...).
%t A066395 nmax = 20; Rest[CoefficientList[Series[(1 - (1 - 504*Sum[DivisorSigma[5, k]*x^k, {k, 1, nmax}])^2/(1 + 240*Sum[DivisorSigma[3, k]*x^k, {k, 1, nmax}])^3)/1728, {x, 0, nmax}], x]] (* _Vaclav Kotesovec_, Jul 07 2017 *)
%t A066395 a[n_] := SeriesCoefficient[1/(1728*KleinInvariantJ[-Log[q]*I/(2*Pi)]), {q, 0, n}]; Table[a[n], {n, 1, 13}] (* _Jean-François Alcover_, Nov 02 2017 *)
%K A066395 sign
%O A066395 1,2
%A A066395 _N. J. A. Sloane_, Dec 24 2001