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 A215533 #7 Aug 26 2019 21:09:21
%S A215533 1,2,4,10,20,100,110,152,220,242,736,790,800,916,1010,1078,1106,1232,
%T A215533 1528,1636,1834,2284,2330,2392,2600,3100,3562,3904,4000,4066,4228,
%U A215533 4444,4552,5056,6082,6208,6226,7810,8170,8530,9520
%N A215533 Numbers n such that n^s(n) + 1 is a prime, where s(n) is the sum of the digits of n.
%t A215533 t = {}; Do[If[PrimeQ[(n^Total[IntegerDigits[n]]) + 1], AppendTo[t, n]], {n, 10000}]; t
%t A215533 Select[Range[10000],PrimeQ[#^Total[IntegerDigits[#]]+1]&] (* _Harvey P. Dale_, Aug 26 2019 *)
%K A215533 nonn,base
%O A215533 1,2
%A A215533 _Vicente Izquierdo Gomez_, Aug 15 2012