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

Author

Benoit Cloitre, Apr 06 2003

Keywords

• nonn

Crossrefs

Cf. A000364, A060075.

Programs

Mathematica

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

PARI

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