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 A104128 #34 Oct 30 2023 09:53:08 %S A104128 10,84,15630,5764808,3138428376732,3937376385699302, %T A104128 14063084452067724991026,37589973457545958193355620, %U A104128 480250763996501976790165756943064,74462898441675122902293018227199467668020630,529144398052420314716929933900838757437386767392 %N A104128 a(n) = p + p^(p+1), where p = prime(n). %C A104128 Sum of reciprocals rapidly converges to 0.11196891489794721930017828981362.. %H A104128 Ray Chandler, <a href="/A104128/b104128.txt">Table of n, a(n) for n = 1..76</a> %F A104128 a(n) = A000040(n) + A104126(n). %t A104128 Table[p + p^(p+1), {p, Prime[Range[12]]}] (* _Robert G. Wilson v_, Feb 27 2012 *) %o A104128 (Maxima) A104128(n) := block( %o A104128 return(A000040(n)^(1+A000040(n))+A000040(n)) %o A104128 )$ /* _R. J. Mathar_, Feb 27 2012 */ %o A104128 (PARI) A104128(n)=(n=prime(n))+n^(n+1) \\ _M. F. Hasler_, Feb 26 2012 %K A104128 easy,nonn %O A104128 1,1 %A A104128 _Cino Hilliard_, Mar 06 2005 %E A104128 Definition corrected and incorrect program removed by _R. J. Mathar_, Feb 27 2012 %E A104128 More terms from _Harvey P. Dale_, Feb 27 2012