A355954 Decimal expansion of the constant A in the asymptotic behavior R(d) = log(d)/(Pi*sqrt(3)) + A of the resistance between two nodes separated by the Euclidean distance d in an infinite triangular lattice of one-ohm resistors.

3, 3, 4, 4, 1, 2, 0, 3, 1, 3, 9, 2, 4, 1, 9, 8, 0, 2, 0, 4, 3, 9, 1, 3, 9, 1, 2, 2, 2, 1, 2, 2, 7, 0, 8, 8, 1, 5, 4, 5, 6, 5, 1

Offset: 0

Author

Hugo Pfoertner, Jul 26 2022

Keywords

• nonn
• cons
• hard
• more

Comments

From an engineering point of view, this constant summand can be regarded as a kind of near-field contribution, which contains the well-known resistance of 1/3 ohms between 2 neighboring nodes as the main part.

The asymptotic formula is analogous to that known for the square lattice. The constant was determined by comparison with the exact integral (see A355589) for the resistance, evaluated for very large distances d (maximum approx. 10^9, for larger arguments the computational effort is no longer manageable). At the moment (July 2022) no representation in closed form is known. A derivation similar to the method used to determine A355953 might be applicable.

Examples

			0.3344120313924198...
		

Crossrefs

Cf. A355589, A355953 (similar for square lattice).

Cf. A355585, A355586, A355587, A355588 (exact solutions for small distances).

Programs

Mathematica

alphat[beta_] := ArcCosh[2/Cos[beta] - Cos[beta]];
Rtri[n_, p_] :=
  SetAccuracy[1/(Pi), 150]*
   NIntegrate[(1 -
       Exp[-Abs[n - p]*alphat[beta]]*Cos[(n + p)*beta])/(Cos[
        beta]*Sinh[alphat[beta]]), {beta, 0, Pi/2},
    WorkingPrecision -> 150];
Rtri[3*10^8, 0] - SetAccuracy[Log[3*10^8]/(Pi* Sqrt[3]), 150];