# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a136292
Showing 1-1 of 1

%I A136292 #6 May 13 2013 01:54:09
%S A136292 5,11,17,31,37,43,83,89,109,263,269,521,541,547,593,773,1051,3181,
%T A136292 3187,3413,3691,6763,9377,9403,9887,12527,46663,46993,49787,50549,
%U A136292 52937,53189,93851,96697,99563,139999,823547,823553,823573,823651,823831
%N A136292 Primes of the form a^a + b^b + c^c + d^d + e^e.
%H A136292 Charles R Greathouse IV, <a href="/A136292/b136292.txt">Table of n, a(n) for n = 1..10000</a>
%F A136292 A000040 INTERSECTION {A000312(a) + A000312(b) + A000312(c) + A000312(d) + A000312(e)}.
%e A136292 a(1) = 5 = 1^1 + 1^1 + 1^1 + 1^1 + 1^1.
%e A136292 a(2) = 11 = 1^1 + 1^1 + 1^1 + 2^2 + 2^2.
%e A136292 a(3) = 17 = 1^1 + 2^2 + 2^2 + 2^2 + 2^2.
%e A136292 a(4) = 31 = 1^1 + 1^1 + 1^1 + 1^1 + 3^3.
%t A136292 Select[Union[ Flatten[Table[ a^a + b^b + c^c + d^d + e^e, {a, 1, 20}, {b, 1, a}, {c, 1, b}, {d, 1, c}, {e, 1, d}]]], PrimeQ]
%o A136292 (PARI) v=[];for(a=1,50, for(b=1,a, for(c=1,b, for(d=1,c, for(e=1,d, if(ispseudoprime(t=a^a+b^b+c^c+d^d+e^e),v=concat(v,t))))))); v \\ _Charles R Greathouse IV_, Feb 15 2011
%Y A136292 Cf. A000040, A000312, A068145, A133664.
%K A136292 easy,nonn
%O A136292 1,1
%A A136292 _Jonathan Vos Post_, Apr 11 2008

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE