A081731 a(n) = (A000364(n+2)-A000364(n))/60.

1, 23, 841, 45023, 3321841, 323146823, 40078005241, 6172529945423, 1155774491891041, 258569396539480823, 68116719340312179241, 20870735447824438473023, 7358996769608563523829841, 2958635655331631430113322023, 1345380961533244150651061562841, 687031380335435376384294050107823

Offset

1,2

Links

Table of n, a(n) for n=1..16.

Mathematica

a[n_] := (Abs[EulerE[2*n+4]] - Abs[EulerE[2*n]]) / 60; Array[a, 16] (* Amiram Eldar, May 03 2025 *)

Prog

(PARI) a(n) = (abs(eulerfrac(2*n+4)) - abs(eulerfrac(2*n))) / 60; \\ Amiram Eldar, May 03 2025

Crossrefs

Cf. A000364, A060075.

Sequence in context: A158505 A386831 A217116 * A335496 A183523 A233339

Adjacent sequences: A081728 A081729 A081730 * A081732 A081733 A081734

Keyword

nonn

Author

Benoit Cloitre, Apr 06 2003

Status

approved