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 A091826 #14 Apr 25 2025 04:27:59
%S A091826 1,3,54,1866,10958530,1523289156,71965034739952,22713955095665178,
%T A091826 4197346376195350706086,1207862068271027767810096022068,
%U A091826 1068238305254443248937595170683870,1562962037194040089900589886917581740972972,3510829028264238204864812583698673210331036097560
%N A091826 (1/p)*(1+A000254(p)-p) as p runs through the primes.
%H A091826 Amiram Eldar, <a href="/A091826/b091826.txt">Table of n, a(n) for n = 1..87</a>
%p A091826 a:= n-> (p-> (1+abs(Stirling1(p+1, 2))-p)/p)(ithprime(n)):
%p A091826 seq(a(n), n=1..14); # _Alois P. Heinz_, Feb 27 2023
%t A091826 f[n_] := Abs[StirlingS1[n + 1, 2]] - n + 1; Table[f[p]/p, {p, Prime[Range[13]]}] (* _Amiram Eldar_, Apr 25 2025 *)
%Y A091826 Cf. A000040, A000254.
%K A091826 nonn
%O A091826 1,2
%A A091826 _Benoit Cloitre_, Mar 09 2004