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 A259067 #11 Jun 20 2015 14:48:27 %S A259067 5,11,16,13,14,11,5,11,11,14,14,16,8,7,14,11,17,17,16,19,20,13,16,14, %T A259067 16,13,22,13,14,13,19,23,14,16,16,14,17,13,14,17,14,20,23,10,11,16,17, %U A259067 19,20,20,23,23,23,11,13,20,13,20,17,19,10,19,13,14,16,20,10,10,13,10,13,10,13,13,19,17,13,11,14,14,14,22,16,19,20,16,20,19,20,19,20 %N A259067 Sum of digits of Honaker primes (A033548). %H A259067 Charles R Greathouse IV, <a href="/A259067/b259067.txt">Table of n, a(n) for n = 1..10000</a> %F A259067 a(n) = A007953(A033548(n)) = A007953(A033549(n)). %o A259067 (PARI) lista(nn) = forprime(p=2, nn, if ((sd=sumdigits(p)) == sumdigits(primepi(p)), print1(sd, ", "));); \\ _Michel Marcus_, Jun 18 2015 %o A259067 (PARI) go(lim)=my(v=List(),n,s);forprime(p=2,lim, s=sumdigits(n++); if(sumdigits(p)==s, listput(v,s))); Vec(v) \\ _Charles R Greathouse IV_, Jun 18 2015 %Y A259067 Cf. A007605, A007953, A033548, A033549. %K A259067 nonn,base %O A259067 1,1 %A A259067 _Zak Seidov_, Jun 18 2015