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 A112266 #6 Jun 18 2016 00:42:45 %S A112266 2,5,19,53,71,79,89,113,157,167,199,311,359,439,521,541,587,593,613, %T A112266 769,947,977,1009,1097,1171,1223,1249,1289,1427,1447 %N A112266 Primes in A112265. %t A112266 f[1] = 0; f[n_] := Plus @@ (#[[2]] First@ IntegerDigits[#[[1]]] & /@ FactorInteger[n]); Select[ Accumulate@ Array[f, 200], PrimeQ] (* _Giovanni Resta_, Jun 17 2016 *) %K A112266 base,easy,nonn %O A112266 1,1 %A A112266 _Jonathan Vos Post_, Aug 30 2005 %E A112266 Corrected and extended by _Giovanni Resta_, Jun 17 2016