close
login
Search: keyword:new
     Sort: relevance | references | number | modified | created      Format: long | short | data
a(n) = c_6b(n)/n^2, where c_6b(n) are the Fourier coefficients of the level-2 K3 meromorphic modular form C_6b defined below.
+0
0
1, -40, 1108, -27968, 681126, -16301344, 386328104, -9100225024, 213502966669, -4995080813040, 116628117491964, -2718994639182080, 63315615577732142, -1473057085776401984, 34246337230963711608, -795708433562512609280, 18479253761062274188818, -428983635479967049436680
OFFSET
1,2
COMMENTS
Bönisch, Duhr and Maggio introduced C_6b and conjectured that it is magnetic of depth 2. Shvets proved the stronger denominator-one statement a(n) in Z for every n >= 1.
Up to scaling, C_6b is the canonical CM form F_{-4,2} of discriminant -4 attached to the level-2 K3 packet: F_{-4,2} = 32*C_6b. Here F_{-4,2} is meromorphic of weight 6 for Gamma_0(2), vanishing at the cusps, with poles at the associated CM points; it is the specialization f_{3,-4,2,1,1} of the higher-level forms of Löbrich and Schwagenscheidt. In particular C_6b is not holomorphic, and its coefficients grow exponentially.
If n = 2^r*m with m odd, then 2^(3*r) divides a(n). In fact, the stronger estimate v_2(c_6b(2^r*m)) >= 5*r holds.
LINKS
Kilian Bönisch, Claude Duhr and Sara Maggio, Some conjectures around magnetic modular forms, arXiv:2404.04085 [math.NT], 2024.
Steffen Löbrich and Markus Schwagenscheidt, Arithmetic properties of Fourier coefficients of meromorphic modular forms, Algebra Number Theory 15 (2021), no. 9, 2381-2401; arXiv:2010.06297 [math.NT], 2020.
FORMULA
a(n) = (1/n^2)*[q^n] B(q)*(1 - u(q))/(1 + u(q))^2, where B(q) = Sum_{k>=1} k^5*q^k/(1 - q^(2*k)) = Sum_{n>=1} A096960(n)*q^n, and u(q) = 64*q*Product_{m>=1} (1 + q^m)^24.
Sum_{n>=1} n^2*a(n)*q^n = C_6b(q).
(1 - u)/(1 + u)^2 = Sum_{j>=0} (-1)^j*(2*j+1)*u^j.
a(n) ~ (-1)^(n+1) * exp(Pi*n) / 8. - Vaclav Kotesovec, Aug 14 2026
EXAMPLE
The coefficient of q^2 in C_6b is c_6b(2) = -160, hence a(2) = -160/2^2 = -40.
Similarly, a(3) = 9972/3^2 = 1108.
MATHEMATICA
Table[1/n^2 * SeriesCoefficient[Sum[k^5*x^k/(1 - x^(2*k)), {k, 1, n}] * (1 - 64*x*Product[(1 + x^k)^24, {k, 1, n}])/(1 + 64*x*Product[(1 + x^k)^24, {k, 1, n}])^2, {x, 0, n}], {n, 1, 20}] (* Vaclav Kotesovec, Aug 14 2026 *)
PROG
(SageMath)
N = 20
R.<q> = PowerSeriesRing(QQ, default_prec=N+1)
t = q*prod((1+q^m)^24 for m in range(1, N+1))
u = 64*t
B = sum(m^5*q^m/(1-q^(2*m)) for m in range(1, N+1))
C6b = B*(1-u)/(1+u)^2
[C6b[n]/n^2 for n in range(1, N+1)]
CROSSREFS
Cf. A096960, A398383 (the C_6a companion from the same level-2 K3 packet), A398186 (weight-4 companion arising from the same level-2 K3 packet).
KEYWORD
sign,new
AUTHOR
Alex Shvets, Aug 13 2026
STATUS
approved
a(n) = 27^n * [z^n] 2F1(1/3, 1/3; 1; z)^2.
+0
0
1, 6, 81, 1392, 26874, 555660, 12020778, 268529904, 6144053553, 143212055766, 3387948944913, 81123449546880, 1962120667472784, 47862747799761888, 1176064743384542736, 29080543505336982144, 723048610733223389946, 18065218662820164577500, 453308819571480290636250
OFFSET
0,2
COMMENTS
This is the (e,d) = (3,2) member of the equianharmonic symmetric-power family. It is the self-convolution of A276018, hence all terms are integers.
The exponent 3 is uniformly optimal in both prime classes, and the inert orbit length 2 is minimal: v_7(a(7)-a(1))=3; also a(5) != a(1) (mod 5), while v_5(a(25)-a(1))=3.
FORMULA
G.f.: G(x) = Sum_{n>=0} a(n)*x^n = 2F1(1/3,1/3;1;27*x)^2.
a(n) = 27^n*Sum_{k=0..n} ((1/3)_k)^2*((1/3)_(n-k))^2/(k!^2*(n-k)!^2), where (x)_j denotes the rising factorial.
a(n) = Sum_{k=0..n} A276018(k)*A276018(n-k).
n^3*a(n) = 6*(3n-2)*(3n^2-4n+2)*a(n-1) - 27*(3n-4)^3*a(n-2), n >= 2, with a(0)=1 and a(1)=6.
(theta^3 - 6*x*(3*theta+1)*(3*theta^2+2*theta+1) + 27*x^2*(3*theta+2)^3)*G(x) = 0 where theta=x*d/dx and G(x) is the g.f.
Sum_{n>=0} (-1)^n*a(n)*t_3(tau)^n = eta(tau)^6/eta(3*tau)^2 where t_3(tau) = (eta(3*tau)/eta(tau))^12.
a(m*p^(f*r)) == a(m*p^(f*(r-1))) (mod p^(3*(r+floor(v_p(m)/f)))) for every prime p >= 5, and m,r >= 1, where f = ord_3(p), so f=1 if p == 1 (mod 3) and f=2 if p == 2 (mod 3).
a(n) ~ (Gamma(1/3) * 3^(3*n+1) / (2*Pi^2 * n^(4/3))) * (1 - 16*Pi^4 / (3*Gamma(1/3)^8 * n^(1/3))). - Vaclav Kotesovec, Aug 10 2026
EXAMPLE
Writing b=A276018, a(2) = b(0)*b(2) + b(1)^2 + b(2)*b(0) = 36 + 9 + 36 = 81.
Equivalently, 2F1(1/3,1/3;1;27*x)^2 = 1 + 6*x + 81*x^2 + 1392*x^3 + ...
MAPLE
a := proc(n)
option remember;
if n = 0 then
1
elif n = 1 then
6
else
(6*(3*n-2)*(3*n^2-4*n+2)*a(n-1)
-27*(3*n-4)^3*a(n-2))/n^3
end if
end proc:
seq(a(n), n=0..18);
MATHEMATICA
CoefficientList[Normal[Series[Hypergeometric2F1[1/3, 1/3, 1, 27*x]^2, {x, 0, 18}]], x]
PROG
(Python)
def A(N):
a = [1]*(N + 1)
if N >= 1:
a[1] = 6
for n in range(2, N + 1):
num = (6*(3*n-2)*(3*n*n-4*n+2)*a[n-1]
- 27*(3*n-4)**3*a[n-2])
a[n], rem = divmod(num, n**3)
assert rem == 0
return a
(PARI) a(n) = my(z='z+O('z^(n+1))); polcoef(27^n*hypergeom([1/3, 1/3], 1, z)^2, n); \\ Michel Marcus, Aug 10 2026
(PARI) my(x='x+O('x^25)); Vec(hypergeom([1/3, 1/3], [1], 27*x)^2) \\ Joerg Arndt, Aug 10 2026
CROSSREFS
Cf. A276018 (d=1; the present sequence is its self-convolution), A395287 (d=3), A002897 (lemniscatic d=2 analog), and A395125 (cubic Belyi pullback).
KEYWORD
nonn,easy,new
AUTHOR
Alex Shvets, Aug 09 2026
STATUS
approved
Array read by ascending antidiagonals: A(n,k) = n*k^n + 1, with k >= 0.
+0
1
1, 1, 1, 1, 2, 1, 1, 3, 3, 1, 1, 4, 9, 4, 1, 1, 5, 25, 19, 5, 1, 1, 6, 65, 82, 33, 6, 1, 1, 7, 161, 325, 193, 51, 7, 1, 1, 8, 385, 1216, 1025, 376, 73, 8, 1, 1, 9, 897, 4375, 5121, 2501, 649, 99, 9, 1, 1, 10, 2049, 15310, 24577, 15626, 5185, 1030, 129, 10, 1
OFFSET
0,5
EXAMPLE
The array begins as:
1, 1, 1, 1, 1, 1, 1, 1, ...
1, 2, 3, 4, 5, 6, 7, 8, ...
1, 3, 9, 19, 33, 51, 73, 99, ...
1, 4, 25, 82, 193, 376, 649, 1030, ...
1, 5, 65, 325, 1025, 2501, 5185, 9605, ...
1, 6, 161, 1216, 5121, 15626, 38881, 84036, ...
1, 7, 385, 4375, 24577, 93751, 279937, 705895, ...
...
MATHEMATICA
Unprotect[Power]; Power[0, 0]=1; Protect[Power]; A[n_, k_]:=n*k^n+1; Table[A[n-k, k], {n, 0, 10}, {k, 0, n}]//Flatten
CROSSREFS
Rows n=0..2 give: A000012, A000027, A058331.
Antidiagonal sums give A398885.
Diagonal gives A110567.
KEYWORD
nonn,tabl,easy,new
AUTHOR
Stefano Spezia, Aug 13 2026
STATUS
approved
Diagonal of the 5-dimensional geode array: a(n) = G(n,n,n,n,n).
+0
0
1, 797698, 23815989405810, 1556307592125282946600, 144761240718662837055921991500, 16474260690093983379348003972615178200, 2136478310201004182397268358323768487755650864, 303637094022092857902272574122446541937055159346860800
OFFSET
0,2
COMMENTS
The geode G is here the 5-dimensional array arising from operator inversion of the hyper-Catalan generating series in variables t_2, t_3, t_4, t_5, t_6: if S denotes that series, then S - 1 = (t_2 + t_3 + t_4 + t_5 + t_6) * G. This sequence records the main diagonal a(n) = G(n,n,n,n,n).
The value G(1000,1000,1000,1000,1000) is an 8367-digit integer, answering a challenge of Zeilberger (see the Cgeode link, where a donation to the OEIS Foundation was offered for its computation). It was computed in August 2026 by two independent implementations (an alternating-sum/generating-function collapse in exact arithmetic, and an independently written second implementation), each run modulo disjoint sets of more than 390 word-sized primes and reconstructed by CRT with agreement on every prime.
LINKS
T. Amdeberhan, M. Kauers, and D. Zeilberger, The Challenge of Computing Geode Numbers, arXiv:2508.10245 [math.CO], 2025; Palestine J. Math. 14(4) (2025), 709-713.
D. Rubine, Computing the 4D Geode, arXiv:2512.21785 [math.CO], 2025.
N. J. Wildberger and D. Rubine, A Hyper-Catalan Series Solution to Polynomial Equations, and the Geode, Amer. Math. Monthly, 132(5) (2025), 383-402.
D. Zeilberger, The Amazing Geode (challenge page).
FORMULA
a(n) = G(n,n,n,n,n) where G(m2,m3,m4,m5,m6) = Sum_{i=0..m3} Sum_{j=0..m4} Sum_{k=0..m5} Sum_{l=0..m6} (-1)^(i+j+k+l) * ((i+j+k+l)!/(i!*j!*k!*l!)) * C(m2+1+i+j+k+l, m3-i, m4-j, m5-k, m6-l), where C(m2,m3,m4,m5,m6) = (S+L-1)!/(m2!*m3!*m4!*m5!*m6!*L!) with S = m2+m3+m4+m5+m6, L = m2 + 2*m3 + 3*m4 + 4*m5 + 5*m6 + 1.
G(m2,m3,m4,m5,m6) = C(m2+1,m3,m4,m5,m6) - G(m2+1,m3-1,m4,m5,m6) - G(m2+1,m3,m4-1,m5,m6) - G(m2+1,m3,m4,m5-1,m6) - G(m2+1,m3,m4,m5,m6-1) (nonnegative indices only).
PROG
(Python) # direct alternating sum; feasible for small n
from math import factorial
def C(m2, m3, m4, m5, m6):
S = m2+m3+m4+m5+m6; L = m2+2*m3+3*m4+4*m5+5*m6+1
return factorial(S+L-1)//(factorial(m2)*factorial(m3)*factorial(m4)*factorial(m5)*factorial(m6)*factorial(L))
def a(n):
t = 0
for i in range(n+1):
for j in range(n+1):
for k in range(n+1):
for l in range(n+1):
m = factorial(i+j+k+l)//(factorial(i)*factorial(j)*factorial(k)*factorial(l))
t += (-1)**(i+j+k+l)*m*C(n+1+i+j+k+l, n-i, n-j, n-k, n-l)
return t
print([a(n) for n in range(8)])
CROSSREFS
Cf. A394082 (4-dimensional diagonal), A383439 (2-dimensional diagonal), A000108, A001764.
KEYWORD
nonn,new
AUTHOR
Po-Han Shih, Aug 13 2026
STATUS
approved
a(1)=1; for n>=2, a(n)=a(n-1)+n if a(n-1) mod floor(phi*n)<n, otherwise a(n)=floor(a(n-1)/phi), where phi=(1+sqrt(5))/2.
+0
0
1, 3, 1, 5, 3, 9, 5, 13, 8, 18, 29, 41, 25, 39, 24, 14, 31, 49, 30, 18, 39, 61, 37, 22, 47, 73, 45, 73, 102, 132, 81, 113, 146, 90, 125, 161, 99, 61, 37, 77, 118, 72, 115, 71, 43, 89, 136, 84, 133, 82, 133, 185, 238, 147, 90, 146, 203, 261, 161, 99
OFFSET
1,2
COMMENTS
In an exact computation through n = 100067704832, the maximum observed run length was 3 for both additive updates and contractions.
EXAMPLE
Since floor(2*phi)=3 and a(1) mod 3=1<2, a(2)=a(1)+2=3.
Since floor(3*phi)=4 and a(2) mod 4=3>=3, a(3)=floor(a(2)/phi)=floor(3/phi)=1.
MAPLE
g := k -> iquo(isqrt(5*k^2)-k, 2):
a := proc(n)
option remember;
local x;
if n = 1 then
return 1;
end if;
x := a(n-1);
if irem(x, n+g(n)) < n then
return x+n;
else
return g(x);
end if;
end proc:
seq(a(n), n=1..60);
MATHEMATICA
Clear[a, g];
g[k_Integer] := Floor[k/GoldenRatio];
a[1] = 1;
a[n_Integer] /; n >= 2 := a[n] = If[Mod[a[n-1], n+g[n]] < n, a[n-1]+n, g[a[n-1]]];
Table[a[n], {n, 1, 60}]
PROG
(Python)
from math import isqrt
def G(k):
if k < 0:
raise ValueError("k must be nonnegative")
return (isqrt(5*k*k) - k) // 2
def A(N):
if N < 1:
return []
x = 1
values = [x]
for n in range(2, N + 1):
modulus = n + G(n)
if x % modulus < n:
x += n
else:
x = G(x)
values.append(x)
return values
print(A(60))
CROSSREFS
Cf. A001622 (phi), A000201 (floor(phi*n)).
KEYWORD
nonn,easy,new
AUTHOR
Jake Foth, Jul 27 2026
STATUS
approved
Numbers k such that tau(k)*sigma(k)+1 is a multiple of k.
+0
0
1, 3, 77, 125, 16807, 128807153, 2357947691
OFFSET
1,2
COMMENTS
The results of the division are: 2,3,5,5,7,17,11... (is this related to A338141?) which are equivalent to the tau values of the numbers plus one (does this hold true for larger numbers?).
p^(p-2) (A130614) is a term for all primes p since tau(p^(p-2)) * sigma(p^(p-2)) + 1 = p^(p-1). - Amiram Eldar, Aug 13 2026
EXAMPLE
3 has divisor count 2 and sigma 4, and 4*2+1 = 9 is equal to 3 divided by 3.
77 has divisor count 4, and divisor sum 96 and 96*4+1 = 385 divided by 77 is 5.
MATHEMATICA
q[k_] := Divisible[Times @@ DivisorSigma[{0, 1}, k] + 1, k]; Select[Range[20000], q] (* Amiram Eldar, Aug 13 2026 *)
PROG
(PARI) isok(k) = {my(f = factor(k)); !((numdiv(f)*sigma(f)+1)%k); } \\ Amiram Eldar, Aug 13 2026
CROSSREFS
KEYWORD
nonn,more,new
AUTHOR
Leo Hennig, Aug 13 2026
EXTENSIONS
a(6)-a(7) from Amiram Eldar, Aug 13 2026
STATUS
approved
Triangle read by rows: T(n,k) is the number of transitive relations on n labeled points with k ordered pairs, 0 <= k <= n^2.
+0
1
1, 1, 1, 1, 4, 5, 2, 1, 1, 9, 27, 43, 45, 27, 12, 6, 0, 1, 1, 16, 90, 276, 549, 768, 806, 668, 429, 220, 112, 36, 14, 8, 0, 0, 1, 1, 25, 230, 1150, 3755, 8771, 15510, 21830, 25265, 24415, 20200, 14530, 9090, 5040, 2580, 1140, 435, 235, 60, 20, 10, 10, 0, 0, 0, 1
OFFSET
0,5
LINKS
Andrew Howroyd, Table of n, a(n) for n = 0..147 (rows 0..7)
EXAMPLE
Triangle begins:
0 | 1;
1 | 1, 1;
2 | 1, 4, 5, 2, 1;
3 | 1, 9, 27, 43, 45, 27, 12, 6, 0, 1;
4 | 1, 16, 90, 276, 549, 768, 806, 668, 429, 220, 112, 36, 14, 8, 0, 0, 1;
5 | 1, 25, 230, 1150, 3755, 8771, 15510, 21830, 25265, 24415, 20200, 14530, 9090, 5040, 2580, 1140, 435, 235, 60, 20, 10, 10, 0, 0, 0, 1;
...
CROSSREFS
Row sums are A006905.
Partial row sums include A393238 (k<=2), A393295 (k<=3), A394722 (k<=4), A394732 (k<=5), A394769 (k<=6), A395093 (k<=7), A395544 (k<=8).
KEYWORD
nonn,tabf,new
AUTHOR
Andrew Howroyd, Aug 19 2026
STATUS
approved
Triangle T(n,k) read by rows that has the A001710(n)-th permutation in reverse colex order of [1,...,n] as row n.
+0
0
1, 1, 2, 1, 3, 2, 4, 2, 1, 3, 5, 2, 1, 4, 3, 6, 5, 3, 2, 1, 4, 7, 6, 3, 2, 1, 5, 4, 8, 7, 6, 4, 3, 2, 1, 5, 9, 8, 7, 4, 3, 2, 1, 6, 5, 10, 9, 8, 7, 5, 4, 3, 2, 1, 6, 11, 10, 9, 8, 5, 4, 3, 2, 1, 7, 6, 12, 11, 10, 9, 8, 6, 5, 4, 3, 2, 1, 7, 13, 12, 11, 10, 9, 6, 5, 4, 3, 2, 1, 8, 7
OFFSET
1,3
COMMENTS
Put simply, the rows represent the states when the task of generating all permutations of [1,...,n] is halfway complete.
REFERENCES
Donald E. Knuth, The Art of Computer Programming, Volume 4A, Combinatorial Algorithms, Part 1, Pearson Education, 2011. Chapter 7.2.1.2 Generating all permutations, Exercise 2, page 344 with answer on page 703.
EXAMPLE
The triangle begins
1,
1, 2,
1, 3, 2,
4, 2, 1, 3,
5, 2, 1, 4, 3,
6, 5, 3, 2, 1, 4,
7, 6, 3, 2, 1, 5, 4,
8, 7, 6, 4, 3, 2, 1, 5,
9, 8, 7, 4, 3, 2, 1, 6, 5,
...
CROSSREFS
Cf. A001710, A375300 (similar, but for permutations in lexicographic order).
KEYWORD
nonn,tabl,new
AUTHOR
Hugo Pfoertner, Aug 19 2026
STATUS
approved
Consider a prime number prime(i) with k digits (d_1, d_2, ..., d_k), where d_k is the units digit. Consider the k preceding prime numbers prime(i-1), prime(i-2), ..., prime(i-k) and the numbers obtained by concatenating [d_1, prime(i-1)], [d_2, prime(i-2)], ..., [d_k, prime(i-k)]. If the latter are all prime, then prime(i) belongs to the sequence.
+0
2
5, 29, 79, 107, 367, 509, 563, 631, 659, 733, 1409, 5903, 9403, 18013, 50207, 63839, 66763, 143063, 309059, 318403, 500009, 650107, 800909, 876349, 940003, 946003, 1450063, 1790707, 2580169, 3001547, 3052033, 3060461, 3366107, 5009803, 6900427, 6979003
OFFSET
1,1
COMMENTS
Loosely inspired by Carlos Rivera's puzzle 1271.
Is there a zeroless prime greater than 876349?
LINKS
Carlos Rivera, Puzzle 1271. 91997, The Prime Puzzles & Problems Connection.
EXAMPLE
5 is a term: 5 has one digit; the preceding prime is 3 -> [5,3] = 53 is prime.
367 is a term: 367 has three digits; the three preceding primes are 359, 353 and 349 -> [3, 359] = 3359, [6, 353] = 6353 and [7, 349] = 7349 are all primes.
CROSSREFS
Cf. A396991.
KEYWORD
nonn,base,hard,new
AUTHOR
Paolo P. Lava, Aug 05 2026
STATUS
approved
Even numbers m such that A001221(m) >= 3 and A001222(m) = A001221(m) + 1.
+0
1
60, 84, 90, 126, 132, 140, 150, 156, 198, 204, 220, 228, 234, 260, 276, 294, 306, 308, 340, 342, 348, 350, 364, 372, 380, 414, 420, 444, 460, 476, 490, 492, 516, 522, 532, 550, 558, 564, 572, 580, 620, 630, 636, 644, 650, 660, 666, 708, 726, 732, 738, 740, 748, 774, 780, 804, 812, 820, 836
OFFSET
1,1
COMMENTS
These are the even terms of A398316. A398316 is the disjoint union of A398569 and this sequence.
Since all the terms are even, the prime 2 appears with an exponent of 1 or 2: either 2 is the only prime appearing with an exponent of 2, or the unique prime appearing with an exponent of 2 is an odd prime.
The asymptotic density of this sequence is (2/Pi^2) * (Sum_{p prime} 1/(p*(p+1)) + 1/3) = A185197 * (A179119 + 1/3) = 0.1344660297679805099613... . - Amiram Eldar, Aug 10 2026
FORMULA
Numbers of the form p^2*q_1*q_2*...*q_r, where r >= 2, p,q_1,q_2,...,q_r are distinct primes, and at least one of these primes is 2.
Equivalently, the sequence is the disjoint union of numbers of the forms:
1. 4*s, where s is odd and squarefree and A001221(s) >= 2, and
2. 2*p^2*s, where p is an odd prime, s is odd and squarefree, gcd(p,s) = 1, and A001221(s) >= 1.
Intersection of A398316 and A005843.
Equals (A072357 intersect A005843) \ A054753.
EXAMPLE
60 is a term because 60 = 2^2*3*5, so 2 is the unique prime occurring with exponent 2.
90 is a term because 90 = 2*3^2*5, so 3 is the unique prime occurring with exponent 2.
315 is in A085987 but not in this sequence, since 315 = 3^2*5*7 is odd.
420 is in this sequence but not in A085987, since 420 = 2^2*3*5*7 has four distinct prime factors.
MATHEMATICA
nn = 840; s = Select[Range[2, nn, 2], And[PrimeNu[#] > 2, SquareFreeQ[#]] &]; Union@ Flatten@ Map[Function[{k, w}, Map[If[# < nn, #, Nothing] &[k*#] &, w]] @@ {#, FactorInteger[#][[;; , 1]]} &, s] (* Michael De Vlieger, Aug 11 2026 *)
PROG
(PARI) isok(k) = if(k == 1 || k % 2, 0, my(e = factor(k)[ , 2]); if(#e < 3, 0, e = vecsort(e, , 4); e[1] == 2 && e[2] == 1)); \\ Amiram Eldar, Aug 10 2026
(PARI) isok(k) = my(f=factor(k), o=omega(f)); k%2 == 0 && o >= 3 && bigomega(f) == (o+1); \\ Michel Marcus, Aug 12 2026
CROSSREFS
KEYWORD
nonn,new
AUTHOR
Charles Kusniec, Aug 09 2026
STATUS
approved

Search completed in 0.065 seconds