OFFSET
1,1
COMMENTS
Except for n = 2, a(n) = A333728(n+2) up to at least n = 6.
LINKS
Paolo Xausa, Table of n, a(n) for n = 1..400 (terms 1..48 from Don Knuth)
Eric Weisstein's World of Mathematics, Complete Tripartite Graph
Eric Weisstein's World of Mathematics, Graceful Labeling
MATHEMATICA
A334307[n_]:=If[n==1, 12, 4n!(DivisorSum[2n+1, 2^((#-1)/2)&]+DivisorSigma[0, n+1]-2^(n-1)-1)]; Array[A334307, 25] (* Paolo Xausa, Dec 04 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Eric W. Weisstein, Apr 24 2020
EXTENSIONS
a(8) and a(9) from Pontus von Brömssen, Jul 25 2020
Terms a(10) and beyond from Don Knuth, Dec 21 2020
STATUS
approved