This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A119722 #6 Feb 16 2025 08:33:01
%S A119722 2063,2743174627,19563315706517008974432827112201617,
%T A119722 2597378078067393746941400113704449589199274012223316613,
%U A119722 777478358612529699991463948563778410644748121498526065585976638854277886379480749840301120148933
%N A119722 Numerator of generalized harmonic number H(p-1,p)= Sum[ 1/k^p, {k,1,p-1}] divided by p^3 for prime p>3.
%C A119722 Generalized harmonic number is H(n,m)= Sum[ 1/k^m, {k,1,n} ]. The numerator of generalized harmonic number H(p-1,p) is divisible by p^3 for prime p>3.
%H A119722 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/WolstenholmesTheorem.html">Wolstenholme's Theorem</a>
%H A119722 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/HarmonicNumber.html">Harmonic Number</a>
%F A119722 a(n) = numerator[ Sum[ 1/k^Prime[n], {k,1,Prime[n]-1} ]] / Prime[n]^3 for n>2.
%e A119722 Prime[3] = 5.
%e A119722 a(3) = numerator[ 1 + 1/2^5 + 1/3^5 + 1/4^5 ] / 5^3 = 257875/125 = 2063.
%e A119722 Prime[4] = 7
%e A119722 a(4) = numerator[ 1 + 1/2^7 + 1/3^7 + 1/4^7 + 1/5^7 + 1/6^7 ] / 7^3 = 2743174627.
%t A119722 Numerator[Table[Sum[1/k^Prime[n],{k,1,Prime[n]-1}],{n,3,9}]]/Table[Prime[n]^3,{n,3,9}]
%Y A119722 Cf. A099828, A099827, A001008, A007406, A007408, A007410.
%K A119722 frac,nonn
%O A119722 3,1
%A A119722 _Alexander Adamchuk_, Jun 13 2006