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 A134535 #8 Apr 17 2013 18:04:53 %S A134535 3,6,10,14,15,24,30,33,34,39,40,47,53,57,61,71,75,76,80,81,83,88,89, %T A134535 92,102,103,106,117,131,143,144,147,154,163,170,187,198,200,205,210, %U A134535 212,221,227,238,240,253,255,260,262,265,271,275 %N A134535 Numbers n such that the sum of the digits of 13^n is prime. %H A134535 Vincenzo Librandi, <a href="/A134535/b134535.txt">Table of n, a(n) for n = 1..1000</a> %e A134535 13^3=2197 and 2+1+9+7=19 is prime. %p A134535 P:=proc(n) local cont,i,k,w; if isprime(n) then cont:=0; while cont<1000 do cont:=cont+1; w:=0; k:=n^cont; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; if isprime(w) then print(cont); fi; od; fi; end: P(13); %t A134535 Select[Range[250], PrimeQ[Total[IntegerDigits[13^#]]]&] (* _Vincenzo Librandi_, Apr 17 2013 *) %Y A134535 Cf. A076203, A134532, A134533, A134534. %K A134535 easy,nonn,base %O A134535 1,1 %A A134535 _Paolo P. Lava_ and _Giorgio Balzarotti_, Oct 30 2007