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 A038346 #21 Oct 18 2021 08:40:12 %S A038346 5,18,35,64,101,142,195,256,329,418,515,616,725,838,975,1124,1281, %T A038346 1454,1635,1828,2025,2254,2487,2728,2985,3254,3531,3812,4105,4418, %U A038346 4735,5072,5421,5774,6147,6536,6933 %N A038346 Sum of first n primes of form 4k+1. %H A038346 Jianing Song, <a href="/A038346/b038346.txt">Table of n, a(n) for n = 1..10001</a> %F A038346 a(n) = Sum_{k=1..n} A002144(k). - _Michel Marcus_, Oct 18 2021 %t A038346 Accumulate[Select[Prime[Range[100]],IntegerQ[(#-1)/4]&]] (* _Harvey P. Dale_, Jul 25 2011 *) %o A038346 (PARI) a(n) = my(s=0); forprime(p=2, , if(p%4==1, s+=p; if(n--<1, return(s)))) \\ following _Charles R Greathouse IV_'s program for A078586 %Y A038346 Cf. A002144, A002313, A006278, A038347. %K A038346 easy,nonn %O A038346 1,1 %A A038346 Den Roussel (DenRoussel(AT)webtv.net) %E A038346 Offset corrected by _Jianing Song_, Oct 18 2021