The On-Line Encyclopedia of Integer Sequences (OEIS)

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

A341711

a(n) = A120963(2*n+1)/2.
(history; published version)

#19 by N. J. A. Sloane at Fri Mar 03 09:31:36 EST 2023

STATUS

editing

approved

#18 by N. J. A. Sloane at Fri Mar 03 09:31:34 EST 2023

REFERENCES

Sanchez, F. , Grosmann, M. , Veysseyre, R. , Veysseyre, H. and Weigel, D. (2021) Towards Science Unification through Number Theory. Advances in Pure Mathematics, 11, 27-62. doi: 10.4236/apm.2021.111004. See Table 7.

STATUS

approved

editing

#17 by N. J. A. Sloane at Thu Mar 02 16:33:05 EST 2023

STATUS

editing

approved

#16 by N. J. A. Sloane at Thu Mar 02 16:33:02 EST 2023

REFERENCES

STATUS

approved

editing

#15 by Alois P. Heinz at Thu May 12 14:03:51 EDT 2022

STATUS

proposed

approved

#14 by Michel Marcus at Thu May 12 12:51:47 EDT 2022

STATUS

editing

proposed

#13 by Michel Marcus at Thu May 12 12:51:44 EDT 2022

REFERENCES

Weigel, D., Veysseyre, R., Phan, T., Effantin, J. M., & Billiet, Y. (1984). Crystallography, geometry and physics in higher dimensions. I. Point-symmetry operations. Acta Crystallographica Section A: Foundations of Crystallography, 40(4), 323-330. See Table 3.

LINKS

D. Weigel, R. Veysseyre, T. Phan, J. M. Effantin, and Y. Billiet, <a href="https://doi.org/10.1107/S0108767384000702">Crystallography, geometry and physics in higher dimensions. I. Point-symmetry operations</a>, Acta Cryst., A40 (1984), 323-330 (see Table 3).

AUTHOR

N. J. A. Sloane, Feb 19 2021.

STATUS

proposed

editing

#12 by Jean-François Alcover at Thu May 12 12:37:21 EDT 2022

STATUS

editing

proposed

#11 by Jean-François Alcover at Thu May 12 12:37:16 EDT 2022

MATHEMATICA

terms = 64; (* number of terms of A120963 *)

nmax = Floor[terms/2] - 1;

S[m_] := S[m] = CoefficientList[Product[1/(1 - x^EulerPhi[k]),

{k, 1, m*terms}] + O[x]^(terms + 1), x];

S[m = 1];

S[m++];

While[S[m] != S[m - 1], m++];

A120963 = S[m];

a[n_ /; 0 <= n <= nmax] := A120963[[2 n + 2]]/2;

Table[a[n], {n, 0, nmax}] (* Jean-François Alcover, May 12 2022 *)

STATUS

approved

editing

#10 by N. J. A. Sloane at Fri Feb 19 16:07:12 EST 2021

STATUS

proposed

approved