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 A071117 #11 Apr 13 2024 14:55:41 %S A071117 1,7,8,10,18,24,38,42,52,54,64,100,107,112,113,114,135,144,145,150, %T A071117 151,159,162,172,177,184,189,196,197,202,213,214,223,228,230,232,238, %U A071117 239,240,252,255,264,267,272,278,283,302,314,315,316,332,338,366,367,374 %N A071117 Numbers k such that the sum of the first k digits of the decimal expansion of e is prime. %e A071117 7 is a term because 2+7+1+8+2+8+1 = 29. %t A071117 a = First[ RealDigits[ N[ E, 400]]]; Do[ If[ PrimeQ[Plus @@ Take[a, n]], Print[n]], {n, 1, 375}] %Y A071117 Cf. A001113, A058938. %K A071117 base,easy,nonn %O A071117 1,2 %A A071117 _Jason Earls_, May 27 2002