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 A130828 #9 Mar 02 2019 20:56:06 %S A130828 5,11,19,29,37,43,89,97,113,139,269,311,337,359,367,433 %N A130828 Primes p such that the sum of the digits of p^p is a prime. %C A130828 Computed by _Emeric Deutsch_. %e A130828 For 5^5 = 625, 6 + 2 + 5 = 13, which is a prime. %p A130828 sd := proc (n) options operator, arrow: add(convert(n, base, 10)[j], j = 1 .. nops(convert(n, base, 10))) end proc: %p A130828 a := proc (n) if isprime(sd(ithprime(n)^ithprime(n))) = true then ithprime(n) else end if end proc: %p A130828 seq(a(n), n = 1 .. 90); # _Emeric Deutsch_, Jul 19 2007 %Y A130828 Cf. A051674, A066588. %K A130828 nonn,base,less %O A130828 1,1 %A A130828 _J. M. Bergot_, Jul 17 2007